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