Orginal non-OO: &{\&{$testname}}($system);
updated as OO:  $self->{&{\&{$testname}}}->($system); #system is hashref