my $revcomp=reverse($1);
$revcomp=~tr/ACGTacgt/TGCAtgca/;