knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my $refToMeth = sub { say @_ ? qq{Got params: @_} : q{No params} };
> 
> $refToMeth->();
> say q{-} x 20;
> $refToMeth->( qw{ a b c } );'
No params
--------------------
Got params: a b c
knoppix@Microknoppix:~$