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

##</code><code>##

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 (@$_);
}