use strict;
use warnings;

$\ = "\n";
$, = '';

if (@ARGV < 3) {
    use File::Basename;
    my $NAME = basename $0;

    print STDERR "USAGE: $NAME <count> <length> <word>...";
    print STDERR '    <count> and <length> are <n> or <min>-<max>';
    exit 1;
}

my $count  = shift @ARGV;

my ($count_n, $count_w) = $count =~ m{^(\d+)(?:-(\d+))?} ;

if (defined $count_w) {
    if ($count_n < $count_w) {
        $count_w -= $count_n - 1;
    }
    else {
        print $ARGV, '(', $., '): invalid count - ', $count;
        next;
    }
}
elsif (defined $count_n) {
    $count_w = 1;
}
else {
    print $ARGV, '(', $., '): invalid count - ', $count;
    next;
}

my $length = shift @ARGV;

my ($length_n, $length_w) = $length =~ m{^(\d+)(?:-(\d+))?} ;

if (defined $length_w) {
    if ($length_n < $length_w) {
        $length_w -= $length_n - 1;
    }
    else {
        print $ARGV, '(', $., '): invalid length - ', $length;
        next;
    }
}
elsif (defined $length_n) {
    $length_w = 1;
}
else {
    print $ARGV, '(', $., '): invalid length - ', $length;
    next;
}

my $c = $count_n + int rand $count_w;

while (0 < $c--) {
    my @R = ();

    my $l = $length_n + int rand $length_w;

    while (0 < $l--) {
        push @R, $ARGV[int rand @ARGV];
    }

    print @R;
}

scriptname count length word...

./scriptname 10 1-4 0 1

01
1
01
1
101
010
10
001
1
01

./scriptname  1-80 10-50 0 1
0010010110110111111001101011110110
1110010101110111000101110
00001100111000100101000101100100110000110
1010111011110100001100
0110100100010
001010001101000
00001011000011100110101001110101011011010001010
01000001110101111001101011000001101001101000
100100111111110011111010101101111101111001100111
11101000010
11111110001010011101000001011111101000101110
1100000101101001010
01001111010110111101111110000101
11111101111010010100010101101000101110011011
100011100000010101110100
1000111100101000111011011101101000

./scriptname  1-16 8-32 C T G A
CTGCCGAAAGCGGCTGGGTT
GAATCCCGC
AGACCACAAGAAAAGCCCTGC
GACAATCAATGATGCATCTCTGTCAGCTAA
TATGAGTTGTCCCGGCCGTT