$self->{&{\&{$testname}}}->($system);

I don't know, maybe my tone in this thread was too harsh. But this line really made my head hurt. Understanding it requires the reader to remember several lines among the thousands of pages of Perl's documentation. Anyway, that line is better written as:

my $key = do {
    no strict 'refs';
    $testcase->(); # symbolic (string) reference
};

$self->{$key}->($system);
[download]

That will make it much easier to debug.