use Data::Dumper;

my $hash = {dog=>'cat',PIG=>'cow'};
print Dumper $hash;

force_uc_hash($hash);
force_uc_hash($hash);
print Dumper $hash;