# Alle Dateinamen in ein Array einlesen
my @files = sort { $b <=> $a } # numerisch sortieren
            glob qw(*.txt);    # alle Textdateien des Verzeichnis

# alle Dateien verarbeiten
for my $filename(@files) {
  open($filename) or die "$filename: $!);
  # weitere Verarbeitung
  close($filename) or die "$filename: $!);
}