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