foreach my $filename(@files){
    chomp $filename;