for my $seq (keys %$gen_seq_list) {
      for (keys %{$seq}) {
         if ($gen_seq_list{$seq}{$_} == $cave_snp_list{$seq}{$_}) {
            ...
         }
      }
   }