my @files = File::DosGlob("$path/*.txt");
foreach my $file (@files) {
  open( my $FH, "<", $file ) or die "Error: '$file': $!\n";
  ...
}

use File::Glob ':glob';

sub such{
  my $kill = @inhalt;
  $list->delete('0',"$kill");
  my $verz = $eingabe->get;
  chdir "$verz" or die "Es konnte nicht in das verzeichnis gewaechselt werden: $!";
  @inhalt = bsd_glob('*.*');
  for(@inhalt){
    $list->insert('end',$_);
  }
}

%EXPORT_TAGS = (
    'glob' => [ qw(
        GLOB_ABEND
    GLOB_ALPHASORT
        GLOB_ALTDIRFUNC
        GLOB_BRACE
        GLOB_CSH
        GLOB_ERR
        GLOB_ERROR
        GLOB_LIMIT
        GLOB_MARK
        GLOB_NOCASE
        GLOB_NOCHECK
        GLOB_NOMAGIC
        GLOB_NOSORT
        GLOB_NOSPACE
        GLOB_QUOTE
        GLOB_TILDE
        glob
        bsd_glob
    ) ],
);