#### höchsten Wert finden ####
$Hochw = 0;
for my $i (0..$x) {
    for my $j (0..$y) {
        $Hochw = $LM[$i][$j] if $Hochw < $LM[$i][$j];
    }
}

#### höchster Wert ####
$Hwert[0]=0;
$e=1;
for ($i=0;$i<=$x;$i++)
{
    for ($j=0;$j<=$y;$j++)
    {
    @Hwert[$e]=$LM[$i][$j];
    $e=$e+1;
    }
}

for ($v=0;$v<$#Hwert;$v++)
{
    if ($Hwert[$v] >= $Hwert[$v+1])
    {
    $Hwert[$v+1]=$Hwert[$v]
    }
else{}
}
$Hochw=$Hwert[$#Hwert];