open(FILE, "data.txt") or die "$!";
while(<FILE>){
  chomp;
  my @data = split(/,/,$_);
  print "test:\t$_\n" foreach (@data);
}
close FILE;