sub outer { my @funcs = (\&f1, \&f2, \&f3, ...); my $result = 0; for $f (@funcs) { $result = $f->(); last if $result; } return ($result); }