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