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

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

foreach my $key (sort keys %hash)
{
	print "\nSchluessel: $key   Wert: $hash{$key}";

        foreach my $keyvergleich (keys %hash)
        {
	    if( $hash{$key} eq $hash{$keyvergleich} )
           {
              delete $hash{$keyvergleich};
			  say "\nLoesche $keyvergleich";
           }
        }
}