$r = pack 'VV', $x, $y;  # 8 bytes structure