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

sub bar {
    # Do stuff here
}

foo(\&bar(), stuff);