Select Code to Download

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

my @lines;
open(FILE, "data.txt") or die "$!";
...
foreach(@lines){
  print "test:\t$_\n" foreach (@$_);
}