Select Code to Download

my %hash = (
    foo  => ['this', 'that'],   # Two different values
...
    baz  => ['the', 'other'],   # Not the same
    buzz => ['same', 'same'],   # The same
);

my %hash = (
    foo  => ['this', 'that'],   # Two different values
...
        print "$key\n";
    }
}

if (2==@$aref && $aref->[0] eq $aref->[1]) ...

while (my ($key, $aref) = each %hash) {
    my %seen;
...
    next if 1 != keys %seen;
    print "$key\n";
}