{
  my @c = qw(A T C G N);
  my @strings = @c;
  foreach (1..5) {
    foreach (@strings) {
      $sorted_str{$string} = join '', sort, split //;
    }
    @strings = map {
      my $string = $_;
      map $string.$_, @c;
    } @strings;
  }
}