Select Code to Download

my @a = ( 1, 2, 3 );
...
    @hash{ @$left, @$right } = ();
    return scalar keys %hash == scalar @$left;
}

use List::MoreUtils qw/any/;

...
    } keys %left, keys %right;
    return 1;
}

use List::MoreUtils qw/any/;

...
    return 0 if any{ $bag{$_} } keys %bag;
    return 1;
}

use Set::Bag;

...
                && $bag_b->difference($bag_a) eq '()';
    return 0;
}