my $obj = MyObject->new;
    my $meth = 'dosomething';
    $obj->meth;

##</code><code>##

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

##</code><code>##

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