$ perl -E 'my $x = sub { say "@_" }; "XYZ"->$x("fred")'
XYZ fred