my @keys = qw(flags x y mode3 callsign route spare1 spare2 flight_level
              terminator chksum_packet);

my %record;

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