%hash = map { unpack('H*',$_) => $hash{$_} } keys %hash;