Select Code to Download

$xml->{event}->[0]->{venue_code}
$xml->{event}->[1]->{venue_code}
$xml->{event}->[2]->{venue_code}

foreach my $event ($xml->{event}) {
  print "$event->{venue_code}<br/>"; #this doesnt work
  print "$event->[0]->{venue_code}<br/>"; #this works
}