(\&test)->(1);

##</code><code>##

my $ref = sub { print "(@_)\n" };

##</code><code>##

$ref->(1);