my $i;
my $j;
my $dna;
my $temp_dna;

for ($i=0; $i < @array1; $i++) {
   $dna = $array1[$i];
   $temp_dna = $dna;
   $dna = reverse $dna;
   $dna =~ tr/actg/tgac/;

   for ($j=0; $j < @array1; $j++) {
      if ($dna eq $array1[$j]) {
         print "FOUND $temp_dna\t$array[$j]\n";
      }
   }
}