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

my @set;
for (my $i=0; $i < $number_of_sequences;$i++) {
   my $aminoseq = genseq($aminoseq);
   print "$aminoseq\n\n";
   push (@set,$aminoseq);
}


sub genseq {

  my $leg=randomlength();
  my $seq;
  for (my $i=0; $i<$leg; $i++) {
    $seq.=randomaminoacid();
  }
return $seq;
}