Select Code to Download

while(<>){
        chomp;
...

my @keys_with_2_unique_vals =
    grep 2 == keys %{$read2seq{$_}}, keys %read2seq;

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