my @n = split '' => $seq;
print 'Complement:         ', @comp{@n};
print 'Reverse Complement: ', @comp{map { $n[$#n - $_] } 0 .. $#n};