sub revcompl {
    return map { (my $rev = reverse $_) =~ tr/ACGTacgt/TGCAtgca/; $rev } @_
}