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