package Modul1;

sub new {
   return bless {}, shift;
}

sub sub1 {
  # Reaktion auf Message1
}

#!/perl

use Modul1;

my @mods = ();

for (0..100) {
push @mods, Modul1->new;
}

{
    package Objects;
    use strict;
    use warnings;
    sub new  { bless [], shift }
    sub add  { push @{$_[0]}, $_[1] }
    sub call { $_->call for @{$_[0]} }
}

{
    package Object;
    use strict;
    use warnings;
    sub new  { bless {}, shift   }
    sub call { print "yoyoyo\n"; }
}

my $objects = Objects->new();

$objects->add( Object->new() );
$objects->add( Object->new() );

$objects->call;