You need to pass it by reference like so

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()
[download]

See the perlsub and perlref manpages for more details.
HTH

_________
broquaint