sub fred{ print 'this is fred:' . "@_" ; };;

$f = 'fred';;

&{ $f }( 1,2,3 );;
this is fred:1 2 3