>>380,381
あんがと。穴まみれだった。orz
もう話題シフトしてるけど個人的にキモチワルイんで書き直し。

sub arraycmp (\@@) {
    my( $arref, @arrey ) = @_;
    return 0 if @$arref != @arrey;
    foreach ( 0 .. @$arref - 1 ) {
        unless (defined $arref->[$_]) {
            defined $arrey[$_] ? return 0 : next;
        }
        return 0 if $arref->[$_] ne $arrey[$_];
    }
    1;
}