my %dirs;
Für jedes Element von @files
   finde den Teil heraus, der das Verzeichnis darstellt, speichere in $dir
   finde den Teil heraus, der den dateinamen darstellt, speichere in $file
   push @{$dirs{$dir}}, $file

while (my ($dir, $files) = each %dirs) {
   print "I'm now looking at $dir\n";
   for (@$files){
       print "  ... and considering file '$_'\n"
   }
}