Better try something like:

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} };
#...
[download]

Btw: very often it is a good idea checking more complicated datastructures with Data::Dump or Data::Dumper (especially if you are not sure if you are constructing them in the right way).

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"