Select Code to Download

use Test::More;

...

    return \@r;
}

sub kyle {
    my ( $ref1, $ref2 ) = @_;
...
    my %x;
    return [ grep { $x{$_}++ < $h{$_} } @{$ref1} ];
}