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