sub take_subs {
    $_->() for @_;
}

sub foo { print "in foo()\n" }
sub bar { print "in bar()\n" }

take_subs(\&foo, \&bar);
#         ^^     ^^

__output__

in foo()
in bar()