Select Code to Download

sub aeq {
    my ($first, $second, @comp) = @_;
...
    @comp = grep {$first->[$_] ne $second->[$_]} 0..$#$first;
    return not @comp;
}

sub aeq {
    my ($first, $second, @comp) = @_;
...
        @comp :
        @comp == @$first;
}