Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
        print "$k\t", join(",\n\t\t", @{$H{$k}}), "\n";
    }
}

$ cat DNA_strings.dat
CTGAG
...
AGCA*:    AGCAC, AGCAA
CTGA*:    CTGAG, CTGAA
G*CAT:    GCCAT, GGCAT

$ perl gen_random_strings.pl 100000 20 20 ACGT >DNA_strings.dat

...
real    0m47.659s
user    0m46.395s
sys     0m1.252s