Select Code to Download

my %complement = ( a t g c );
%complement = ( %complement, reverse %complement );

print map $complement{$_}, reverse split //, $chain;