foreach my $key (sort keys %$hashOfFiles) {
  foreach my $file (sort keys %{ $hashOfFiles->{$key} })
#  foreach my $file (sort keys %$key) 
  {
    my ($mode2, $user2, $group2, $size2, $mtime2, $filename, $filepath) = @{ $hashOfFiles->{$key}->{$file} };
#...