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";
}