my $coderef = \&{$testname};
$system = $coderef->($self, $system); #test

##</code><code>##

$self->$testname($system);