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