#!/usr/bin/perl

use strict  ;
use warnings ;

package BlaBal ;

sub new {
   return bless {}, __PACKAGE__ ;
 }

sub testabc {
  print "TEST1\n" ;
}

package main ;

$t1 = 'test' ;
$t2 = '123' ;
my $obj = new BlaBal ;
$obj->${$t1.$t2}() ;