SELECT DISTINCT Number_count FROM Region_lookup_for_eligible_regions 

##</code><code>##

2  4  5  8  9  12  15 17 21 22

##</code><code>##

#!/usr/bin/perl

use strict;
use List::Util qw/shuffle/;

sub get_random_subsets
{
    my ( $n_sets, $set_size, @superset ) = @_;
    my @sets;
    for my $set ( 1 .. $n_sets ) {
        push @sets, [ (shuffle( @superset ))[1..$set_size] ];
    }
    return \@sets;
}

my @query_data = qw/2  4  5  8  9  12  15 17 21 22/;

my $rand_sets = get_random_subsets( 4, 5, @query_data );

print "input superset: @query_data\n  random subsets:\n";
for my $set ( @$rand_sets ) {
    print "   @$set\n";
}