sub foo {
    $_[0]->()
}

sub bar {
    # Do stuff here
}

foo(\&bar(), stuff);

##</code><code>##

sub foo {
    my $func = shift;
    $func->(@_);
}