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