sub say { print $_[0],$/ }; $x = 'say'; $x->('hello');