{
	package test;
	sub new{ return bless [], $_[0]; }
	sub meth1{
	   print 'meth1';
	}
};

$t=test->new;
$t->meth1;
meth1

$h{x}='meth1';

$t->${ \$h{x} };
meth1