my %packet_fields = (
   $Idents{ Format_7 }    => [qw(    ident
            flags
            x
...]