...
my $method = $t1.$t2;
$obj->$method() ;