# $h = unpack "H16", pack "d", 27.53152055;
27.53152055  => e566 13bb 1188 3b40  

Now you have => 403b 8811 bb13 66e4

# $h = reverse unpack "h16", pack "d", 27.53152055;
# 403b8811bb1366e5