foreach my $event (@{$xml->{event}}) {
  print $event->{venue_code};
}