for ($some->{complex}[$object]{that}{we}[$need]{to}[$use]) {
  $_->foo;
  $_->bar;
}