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