sub foo{print "@_"}
bar(*foo);
sub bar{
    my $coderef = shift;
    $coderef->("Juhuhhuu...123");
}