my $meth = 'meth';
$A::B::{$meth}->(25);
# %A::B:: is a symbol table
# $A::B::{$meth} holds the typeglob *A::B::meth
# *A::B::meth->(...) is like A::B::meth(...)