foreach $key (sort keys %$hashOfFiles) 
{
    #LINE 176
    foreach my $file (sort keys %$key) 
    {
           my ($mode2, $user2, $group2, $size2, $mtime2, $filename, $f
+ilepath) = @{$hashOfFiles->{$key}->{$file}};
        print "$file - $filename, $filepath, $mode2 $user2, $group2, $
+size2, $mtime2<br>";
       }
}