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

my %hash;
$hash{aa}='test1';
$hash{bb}='test2';
$hash{cc}='test1';
$hash{dd}='test3';


my %seen;

# ermittle die Keys, deren Werte schon bekannt sind
my @keys = grep { $seen{ $hash{$_} }++ } sort keys %hash;

# Kontrolle "doppelte keys"
print "$_ : $hash{$_}\n" 	for @keys;

# Loesche diese Keys
delete @hash{@keys};

# Kontrolle 2
use Data::Dumper;
print Dumper \%hash;