$a += pack("C",$_);