my %good_pairs = (
    'A' => 'T',
    'T' => 'A',
    'G' => 'C',
    'C' => 'G',
);
for(0 .. $#dna) {
    if($dna[$_] ne $good_pairs{$comp[$_]}) {
        print "mismatch: $dna[$_] $comp[$_]\n";
    }
}