for (keys %hash) {
  $hash{unpack("H*",$_)} = $hash{$_};
  delete $hash{$_};
}