my %hash=(a=>1,b=>2,x=>1);
my %hsah;
while (my ($key, $val) = each %hash) {
  $hsah{$val}++;
}
while (my ($key, $val) = each %hsah) {
  next if $val == 1;
  print "$val mal: $key\n";
}

foreach my $val(values(%hash)){
  $hsah{$val}++;
}

sub test_hash {
  my $hashref = shift;
  my %hash;
  foreach ( values %{$hashref} ) {
    $hash{$_}++;
    return 1 if $hash{$_} > 1;
  }
  return 0;
}

sub test_hash {
     my $hr = shift;
     my %h;
     return 1 if ++$h{$_} > 1 for values %$hr;
     return 0;
}

#!/usr/bin/perl
use strict;
use warnings;

my %Hash = ( a => 1,
             b => 2,
             c => 3,
           );
my %HasH = ( a => 1,
             b => 2,
             c => 1,
           );

print test_hash(\%Hash), "\n";
print test_hash(\%HasH), "\n";

sub test_hash {
    my $hr = shift;
    my %h;
    for (values %$hr) {return 1 if ++$h{$_} > 1}
    return 0;
}

0
1

    ++$h{$_} > 1 ? return 1 : print "" for values %$hr;