Select Code to Download

{
  my @c = qw(A T C G N);
...
    } @strings;
  }
}

  $bases = $sorted{$bases}
    ||= join '', sort, split //, $bases;