$combine = pack("a*" x ($#ret + 1), @ret);