use File::Glob qw/:glob/;
...
my @fileliste = bsd_glob("$aktuellerPfadUrspung/*.txt");