package Foo;
...
sub doStuff
{
  my $self = shift;
  foreach my $obj (@{$self->{objs}})
  {
    $obj->doSomethingElse();
  }
}