my @children = ( \&sub_one, \&sub_two, ); foreach my $child (@children) { if ($child -> (args)) { # $child was successful } else { # $child was unsuccessful } }