my @keys_with_equal_pair_of_vals = grep 1 == keys %{$read2seq{$_}}, keys %read2seq;