for my $spalte(1..$laenge)
{
    for my $zeile(1..$laenge)
    {
        if ($tabelle[$spalte][$zeile]eq $_ || $tabelle[$spalte][$zeile] lt $limit)
        {last;}
        elsif($tabelle[$spalte][$zeile] ge $limit)
        {
            if ($tabelle[0][$zeile] ne $tabelle[$spalte][0])
            {
               
 $paare{$tabelle[0][$zeile]}=$tabelle[$spalte][0];
            }else{ print "gleiches Wort";last;}
        } 
    }
}