for my $index (1..$anzahl) {
	print "Bitte Zahl nummer $index eingeben: ";
	chomp ( $ar_zahl[$index-1] = <STDIN>);
}