in reply to How to pass parameters to anonymous subs and sub references?
my $x=sub{print shift}; &$x('this that'); [download]
Earth first! (We'll rob the other planets later)