open(TEST, 'test.txt') || die "Couldn't open it";
$i=1;
while(<TEST>){
($lname[$i], $fname[$i]) = split(',');
$i+=1;
}
close(TEST);
open(BTEST, '>test.txt');
$b=0;
foreach (@fname)
{
chomp;
print BTEST "$_ $lname[$b]\n";
$b+=1;
}
close(BTEST);