sub hexout4  {
        "@{[unpack('H*',pop)=~/../g]}"
    }