$number_of_sequences=12;
$max_length=50;
$min_length=30;

my @set;
foreach (0 .. $number_of_sequences) {
   my $aminoseq = genseq($aminoseq);
   print "$aminoseq\n\n";
   push (@set, $aminoseq);
}

sub genseq {

  my $leg = randomlength();
  my $seq;
  foreach (0 .. $leg) {
    $seq .= randomaminoacid();
  }
  return $seq;
}