open(FILE, "data.txt");          #opens data.txt in read-mode
while(<FILE>){                   #reads line by line from FILE which is the filehandle for data.txt
   chomp;
  @data = split(/,/,$_);
}
close FILE;                      #close the file.

 print "test:\t$_\n" foreach (@data);