hisham@bioslayer:~$ perl -
my $subref = sub{print 'a',"\n";};
(my $test)?print 'c' : $subref->(); #dereference with infix arrow operator
__END__
a
hisham@bioslayer:~$ perl -
my $subref = sub{print 'a',"\n"};
(my $test)?print 'c' : &{$subref}; #dereference with &{}
__END__
a

##</code><code>##