||             |
                   vv             v
foreach my $event (@{$xml->{event}}) {
  print "$event->{venue_code}<br/>";
}