use File::Find;
my @array = ();

find(\&archive,$directory);

sub archive {
    # Wenn Dateiname auf eine bestimmte Extension endet...
    if (/(?:\.php?|\.htm?|\.cgi|\.pl)$/) {
        push @array,$File::Find::name; #Hänge die Datei mit vollständigen Namen an das Array
    }# if
}# sub