use warnings;
use strict;

open (OUTFILE, ">outfile.csv");
open (IN1, "<infile1.csv");
 
my $counter = 0;
 
while (<IN1>){
chomp;
print OUTFILE $_;

open (IN2, "<infile2.csv");
while (<IN2>){
my @f = split(/,/);
if ($counter == $f[0]){
print OUTFILE ",$f[1]\n";
}}
close IN2;
$counter = $counter + 1;
}

close IN1;
close OUTFILE;