Select Code to Download

foreach $id (keys %seq){
    if ((length ($seq{$id}) <= $maxlength) || (length($seq{$id}) >= $m
+inlength)){
...
for my $id (@seqarray){ 
  print $id."\n".$seq{$id}."\n"; 
  }