こんなところか。
sub arraycmp (\@\@) {
    my ($a1, $a2) = @_;
    return 0 if ($#$a1 != $#$a2);
    my $i;
    $_ ne $a2[$i++] and return 0 foreach @$a1;
    return 1;
}