#!/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;
}