my $multiple_values;
my ($k,$v);
use Data::Dumper;
$Data::Dumper::Useqq = 1;
while (defined($k = each %hash)) {
   if ($v) {
      ++$multiple_values, last if Dumper($hash{$k}) ne $v;
   } else {
      $v = Dumper($hash{$k})
   }
}
[download]