...
my %Hash_filenames=();
...
      foreach my $filename(keys %Hash_filenames) {