for my $i (0 .. $SomeValue - 1) { $SomeArray[$i]{value} = $some_param->dispatched_method() } sub SomeParamClass::dispatched_method { my $self = shift; $self->getID->dispatch_method_to($self); }