$x = @xSeq = qw (A A G G C C T T);
$y = @ySeq = qw (A C G T A C T T);

$LM[$_][0] = 0 for 0..$x; #### x-Achse mit 0 füllen ####
$LM[0][$_] = 0 for 0..$y; #### y-Achse mit 0 füllen ####

for my $i (1..$x) {
    #### wert ermitteln ####
    for my $j (1..$y) {
        if ($xSeq[$j-1] eq $ySeq[$i-1]) { $tauscher = $LM[$i-1][$j-1] + 2 }
        else                            { $tauscher = $LM[$i-1][$j-1] - 1 }
        #### höchsten wert ermitteln ####
        for ($LM[$i-1][$j]-1, $LM[$i][$j-1]-1, 0) {
            $tauscher = $_ if $_ > $tauscher
        }
        $LM[$i][$j] = $tauscher;
    }
}