$hexdata1 = pack("H*",$hexform1);