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;
}