my $x=sub{print shift}; 
&$x('this that');