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