$ perl -we'*$_ = sub { print "I am 1 $_[1].\n" } for 1; $x = bless {}; $meth = "1"; $x->$meth("world")'
I am 1 world.