@Zeichen3 = <DATEI3>;
pop(@Zeichen3);

@Zeichen4 = <DATEI4>;
#pop(@Zeichen4);

for my $n(0..scalar(@Zeichen3)-1){
    for  my $l(0..scalar(@Zeichen4)-1){
        $teila[$l] = substr($Zeichen3[$l],0,4);
        $teilb[$l] = substr($Zeichen3[$l],4,1);
         if ($Zeichen4[$n] =~ /$teila[$l]/ 
            && $Zeichen4[$n] =~ /$teilb[$l]/ 
            && $Zeichen4[$n] =~ /px/) {
             $neu[$l]=$Zeichen4[$n];
         }
    }
}

print scalar(@neu);