my ( %alph_hash, $alph );
%alph_hash = (
- DNA => [ qw( A T C G ) ],
- DNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
- RNA => [ qw( A U C G ) ],
- RNA_AMBI => [ qw( A G C U T R Y W S M K H D V B N ) ],
- PROTEIN => [ qw( F L S Y C W P H Q R I M T N K V A D E G ) ],
+ DNA => [ qw(A T C G) ],
+ DNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+ RNA => [ qw(A U C G) ],
+ RNA_AMBI => [ qw(A G C U T R Y W S M K H D V B N) ],
+ PROTEIN => [ qw(F L S Y C W P H Q R I M T N K V A D E G) ],
);
if ( exists $alph_hash{ $type } ) {