foreach $dir (sort keys %files)
    {
      foreach $file (@{ $files{$dir} })
      {
        # Do work
      }
    }