my ($id,$qr_opcode_aa_tc_rd,$ra_z_Rcode,$qdcount,$ancount,$nscount,$arcount,@arrayans,) = unpack("n,B8,B8,n4,(C/a*)$n C n2",$buf);