ich glaub das wird schwer, denn ich lese dateien aus unterverzeichnissen eines speziellen verzeichnisses ein, dass ihr naturgemäß nicht habt. Der code funkt ungefähr so:

#!/bin/perl

$PFAD = "/etc";
opendir (DH, $PFAD);
@daten;

while ($file = readdir(DH){
$infile = "$PFAD/$file/dateityp"
open(INFILE,"<$infile");
@datei = <INFILE>;
push(@daten,\@datei);
}