С разрешения Александра Андреева я публикую здесь его код для сравнения массивов. "...в Перле мне не пришло в голову ничего лучше, чем: my $res= $#bar==$#foo; $res=($res and $bar[$_] eq $foo[$_]) foreach (0..$#bar); Немного подумав, понял, что удобнее будет my $res= $#bar==$#foo && !grep $foo[$_] ne $bar[$_], (0..$#bar); На Питоне, если бы в Питне не было простого сравнения a == b это было бы так: len(x) == len(y) and not filter(None, map(lambda x, y: x != y, x, y))" Python is executable pseudocode. Perl is executable line-noise.