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