or download this
$ perl -wE 'sub meth { return (@_, q{A}); } my $o = bless {}; my $x =
+q{meth}; say $o->$x;'
main=HASH(0x10053ad8)A
...
$ perl -wE 'sub meth { return (@_, q{A}); } my $o = bless {}; my %x =
+(a => q{meth}); say $o->${\$x{a}};'
main=HASH(0x10053ad8)A