use Data::Dumper;
print Dumper(\@neu);

@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);

while (<Datei3>)
{
$Zeichen3[$j] = $_;
$j++;
}


pop(@Zeichen3);
while (<Datei4>)
{
$Zeichen4[$m] = $_;
$m++;
}  

#pop(@Zeichen4);

my $laenge1 =@Zeichen3; #454 Zeilen
my $laenge2 =@Zeichen4; #94444 Zeilen
#print @Zeichen4;
for (my $n=0; $n<$laenge2; $n++)
{

for (my $l=0; $l<$laenge1; $l++)
{
$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];}
}

}
my $laenge3 = @neu;
print LOG2 @neu;