%files = Recurse([$drive], {match => '\.'});

##</code><code>##

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