in reply to Looping a multi-dimensional array

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}; }