#!/usr/bin/perl -w

$nomfichier = $ARGV[0];
unless (open (INFILE, $nomfichier))
  {
    die ("impossible d'ouvrir ".$nomfichier." en lecture\n");
  }
$ligne = <INFILE>;
chomp ($ligne);
@valeurx = split (/ /, $ligne);
$ligne = <INFILE>;
chomp ($ligne);
@valeury = split (/ /, $ligne);
close (INFILE);
unless (open (OUTFILE, ">".$nomfichier))
  {
    die ("impossible d'ouvrir ".$nomfichier." en ecriture\n");
  }
$iter = 0;
foreach $ligne (@valeurx)
  {
    print OUTFILE ($ligne." ".$valeury[$iter]."\n");
    $iter++;	
  }
close (OUTFILE);
