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