#! perl
$i=0;


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

print "$key $value";

}
close(test);