open (IN_elements , "<elemente.txt");  
	
while(<IN_elements>){ 
	chomp;
	$element = substr($_,0,4);
	$elemente[$q] = $element;
	$q += 1;
		}
					
my (@zeilen) = (); 
my $zeile;
my $n = 0;

open (IN , "<hq_regio_neu.txt");
	
	while(<IN>){ 
		chomp;
		$zeile = $_;
		$zeilen[$n] = $zeile;
		$n +=1 ;
}
					
			
		
					
my @lines = <hq_regio_neu.dat>	;

	
foreach $element(@elemente){

			open (Out,">>$element.txt");
			
foreach $zeile(@zeilen){
			if($zeile =~/$element /){
					
								if(length($zeile)<=(length($element)+2)){
		$sub = substr($zeile,length($element)+1,1);
							
		print Out $zeile,"\n",$sub;
						
		}}}