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

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