Select Code to Download

my @keys = qw(flags x y mode3 callsign route spare1 spare2 flight_leve
+l
              terminator chksum_packet);
...

@record{@keys} = unpack("B16 n2 A4 A8 A2 A A A3 C2", $buffer);