for (my $i =0; $i < @forward_tets; $i++)   {

           if ($forward_tets[$i] =~ $reverse_tets[$i])  {
                      print "$forward_tets[$i] \t $reverse_tets[$i]\n";
           }
}