my $obj = MyObject->new;
    my %meth = (a => 'dosomething');
    $obj->{ $meth{a} };