$ah= unpack("L",$ah);