$ssid = pack ('c'.shift (@{[splice (@values, 0, 4)]}), @values);