#!/usr/bin/perl

use strict;
use warnings;

my @txt_files = <*.txt>;

for (0..$#txt_files) {
    print $_ . ")\t" . $txt_files[$_] . "\n";
}

print "Bitte wählen sie eine Datei aus: ";
my $sel = <STDIN>;
chomp($sel);
die "Keine gültige Eingabe!\n" unless $sel =~ /^\d+$/;
print $sel . "\t--\t" . $txt_files[$sel] . " wurde ausgewählt!\n";