use List::Util qw/shuffle/;
sub pick {
    return if @_ != 2;
    my ($num, $count) = @_;
    (shuffle 1 .. $num)[0 .. $count-1];
}

##</code><code>##

my ($top, $ct, @samples) = (158, 8);
my $size = 50,000;

$#samples = $size;
$_ = [pick( $top, $ct)] for @samples;

##</code><code>##

my %sample;
$sample{join ',', pick($top, $ct)} = undef
    while $size > keys %sample;