my $hello = sub { 'hello '.$_[0] };
print "kevin"->$hello;
# or
my $x = 'kevin';
print $x->$hello;
[download]

credit to Discipulus's latest well-spaced JAPH

bw, bliako