$ perl -wle 'sub f { print @_ }; my $x = "f"; $x->(3)'
3