$ perl -le " $f = sub { warn @_; }; sub f { &{$f}; } f(6,6,6); "
666 at -e line 1.

$ perl -le " $f = sub { warn @_; }; sub f { $f->(); } f(6,6,6); "
Warning: something's wrong at -e line 1.