For q1, all you need is parens:

(\&test)->(1);
[download]

As for q2: Do you have an anonymous sub? What's it look like? In the typical situation, you have a ref to the sub, e.g.

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

in which case you do as you already showed:

$ref->(1);
[download]

If not that, then what?