open ( TEST, ">", "test.txt") or die "\n$!\n";
foreach my $var ( @file_list ) {
  print "\n$var\n";  
  open ( RL, "<", $var ) or die "\n$!\n";
  while (<RL>){
    print TEST $_;
  }  
}