Your 'looping' throught the 1-element list ($xml->{event}) instead of the array referenced by $xml->{event} Dereference the array ref:

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