Select Code to Download

sub partition {
    my( $limit, $aRef ) = @_;
...
    my %seen; $seen{ $_ }++ for @best;
    return \@best, [ grep{ --$seen{ $_ } < 0 } @$aRef ];
}