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;