my $dna = 'atgAAAAAAAAAAGGGGGGGGGGTTTTTTTTCCCCCCCCCCCCagtcatc';
$dna = uc$dna;
print "$dna\n";
my $revDNA= reverse $dna;
print "$revDNA\n";
my $length = length$revDNA;
my $complement = '';
for (my $i=0;$i>$length-1; $i++)
{
	my $base= substr($revDNA,$i,1);
	if ($base eq 'A') { 
	$base = 'T'; 
	}
	elsif ($base eq 'T') { 
	$base = 'U'; 
	}
	elsif ($base eq 'G') { 
	$base = 'C'; 
	}
	elsif ($base eq 'C') { 
	$base = 'G'; 
	}
	 $complement.=$base;
	 
}
print $complement, "\n";
exit;