$_->(@args) foreach @{$self->get_hooks_for($hook_name)}; #### $VAR1 = [ sub { "DUMMY" }, sub { "DUMMY" } ]; #### $VAR1 = [ sub { "DUMMY" }, undef ]; #### foreach my $hook (@{ $self->get_hooks_for($hook_name) }) { $hook->(@args); } #### my @hooks = @{ $self->get_hooks_for($hook_name) }; $_->(@args) foreach @hooks;