my $file;
my @file_list;
foreach $file(@file_list){
print "$file\n";
}