sub indexnummer_abfragen {
        
        my ($nr, $startnr, $endnr);
        print "Die Nummern und Namen der wählbaren Indizes sind:\n";
        for ($nr = 0; $nr <= 10; $nr++) {
                print "$indexliste[$nr][0] = $indexliste[$nr][1]\n";
        }

        print "\nBitte NUMMER des 1. abzufragenden Index eingeben. Voreinstellung ist 0\n";
        chomp ($startnr = <STDIN>);
        unless ( $startnr ) {
                $startnr = 0;
        }
        print "$startnr\n";

        print "Bitte NUMMER des letzten abzufragenden Index eingeben. Voreinstellung ist 10\n";
        chomp ($endnr = <STDIN>);
        unless ( $endnr ) {
                $endnr = 10;
        }
        print "$endnr\n";

        if ( $startnr > $endnr ) {
                print "Angaben nicht akzeptabel. Skript neu starten\n";
                exit;
        } else {
                print "\ndie Schleife läuft über die Indizes $startnr bis $endnr\n";
        }
        @indexnummern = ($startnr, $endnr);
        return @indexnummern;
}