>perl -wMstrict -le
"package BlaBal;
 sub hi { print 'hi there ', $_[0] };
 sub new {
   my $class = shift;
   return bless { test123 => \&hi } => $class;
   }
 package main;
 my $obj = BlaBal->new;
 $obj->{ 'test' . (120+3) }->('sailor');
"
hi there sailor