$packet= pack "b*", join "", @array;
$packet= join "", map { pack "b8", $_ } @array;