my $ext = '*.pl'; # oder was gewünscht, auch *.* oder test.??? oder andere Kombi
my @fileliste = <$aktuellerPfadUrspung/$ext>;