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

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

        foreach $keyvergleich (keys %hash)
        {
	    if( $hash{$key} eq $hash{$keyvergleich} )
           {
              delete $hash{$keyvergleich};
           }
        }
}