sub nummerierung {
	
	#Array für Text aus Datei#
        my @text;	
        #Ursprungsdatei öffnen#	
	my $input = $ursprungsdateiname->get;
        open (DATEI, '<', $input)
	or die "Die Datei '$input' kann nicht geoeffnet werden!\n";

....