my $dir = '/verzeichnis/das/du/auslesen/moechtest/';
opendir(DIR,$dir) or die $!; # Verzeichnis "öffnen"
# grep filtert mir die .txt-Dateien aus einer Liste (perldoc -f grep)
# readdir liest den Verzeichnisinhalt und liefert die Liste an grep
my @txt_files = grep{$_ =~ /\.txt$/}readdir(DIR);
closedir DIR;

for my $file(@txt_files){
  $path_to_file = $dir.'/'.$file;
  # mach was mit $path_to_file
}