my %reverseHash;
while(($key, $value)=each %hash)
{
   $processedValue = someFunc($value);
   $reverseHash{$processedValue} = $key;
}

my @keys = values %reverseHash;

my %newHash;
@newHash{@keys} = @hash{@keys};