#! perl
$i=0;


open(test,"<test.txt");
while(<test>)
{
($key[$i],$value[$i])=split(/,/);

print "$key[$i] $value[$i]";
$i++;
}
close(test);