use strict;
use warnings;

my (@elemente) = (); # Erzeugen einer leeren Liste
my $element;

my $y=0;


open (IN_elements , "<elemente.txt"); # öffnet Txt - Datei in denen alle Elemente stehen
	
while(<IN_elements>){ # Schleife weist jedem Element einen Listenplatz zu
		chomp;
		$element = substr($_,0,4);
		
		$elemente[$q] = $element;
		$q += 1;
		
			             
					}
					


foreach $element(@elemente){

open (Out,">>$element.txt");
open (IN , "<hq_regio_neu.txt");
									
my $num = 0;
					
while ( my $line = <IN> ) {
					
if ( $num == 0 && $line =~ m/$element (\d+)/ ) {
$num = $1;}
						
elsif ( $num > 0 ) {
print Out $line;
$num--;
		}
                }
		}