>>371
ループ回すのが不満な理由に興味がわくけれども。
ループで良けりゃこんなんでどうかな？

sub cmparr (\@\@) {
    my( $arref1, $arref2 ) = @_;
    $_ ne shift @$arref2 and return 0 foreach @$arref1;
    return 1;
}