push @{ $file_hash->{$dir} },$file_name;

foreach my $file_dir (sort keys %{$file_hash}) {
    foreach my $file (@{ $file_hash->{$dir} }) {
        print "$counter Directory: $file_dir $file\n";
    }
}