my @data = unpack('C*',$packet);