use strict;
use warnings;

my %goodhash = qw/one 1 two 1 three 1 four 1 five 1/;
my %badhash = qw/one 1 two 2 three 2 four 2 five 2/;

foreach my $testhash ( \%goodhash, \%badhash ) {
    print SameVals( $testhash )
           ? "Good.\n" 
           : "Bad.\n";
}

sub SameVals {
    return keys( %{ { reverse %{ $_[0] } } } ) <= 1;
}