my (@am_keys, @lk_keys);
my @rules = (
  AM_Key => sub { push @am_keys, $_[1]{_content}; return },
  LK_Key => sub { push @lk_keys, $_[1]{_content}; return },
  _default => undef,
);
my $xr = XML::Rules->new( rules => \@rules );