#!/usr/local/bin/perl
#
#$infile1="test01.dat";
#$infile1="test02.dat";
$infile1="test03.dat";

#$outfile1="test01-form.dat";
#$outfile1="test02-form.dat";
$outfile1="test03-form.dat";


open(INFILE1, "<$infile1") || die "Can't open filename: !$\n";
open (OUTFILE1, ">$outfile1") || die "Can't open filename: !$\n";


$line = <INFILE1>;  # begin outer while loop 1
@outx=split ' ', $line;
$line = <INFILE1>;  # begin outer while loop 1
@outy=split ' ', $line;

$i=0;
foreach $entry ( @outx ) {
    ##$diff=($entry - $outx[$i]);
    print OUTFILE1 "$entry, $outy[$i]\n";
    $i++;
}

close (OUTFILE1);