$ perl -wE 'sub f { 42 } my $x = f(); say $x'
42
$ perl -wE 'sub f { 42 } my $x = &f(); say $x'
42