>perl -wMstrict -le
"
 { package Foo;
   sub new { return bless { foo => 'woo' } => shift; }
   sub hoo_foo {
     my $self = shift;
     print qq{hi from hoo_foo: $self->{$_[0]}};
     }
   }
 ;;
 my $oo = Foo->new;
 my $poo = 'foo';
 my $method = qq{hoo_$poo};
 $oo->$method($poo);
 $oo->${ \qq{hoo_$poo} }($poo);
"
hi from hoo_foo: woo
hi from hoo_foo: woo