sub test($) { print("Boo!\n"); }

my $f = \&test;
$f->();         # No error. Prints "Boo!".
$f->(1, 2, 3);  # No error. Prints "Boo!".