DIR     FILE_NAME
| 954  |   24088954 |
| 955  |   24052955 |
| 955  |   24111955 |
| 955  |   24130955 |
| 956  |   23159956 |
| 957  |   24133957 |
| 958  |   24131958 |
| 960  |   24093960 |
| 961  |   24033961 |
| 961  |   24129961 |
| 961  |   24130961 |

##</code><code>##

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

##</code><code>##


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

1 Directory: 000 24090000
2 Directory: 000 24125002
3 Directory: 000 24011003
4 Directory: 000 24070003
5 Directory: 000 24082003
6 Directory: 000 24065005
7 Directory: 000 24070007
8 Directory: 000 24132007
9 Directory: 000 24041008