my $testing = $self->{test_b};
print $$testing->();

##</code><code>##

print $$self->{test_b}->(); 

##</code><code>##

Not a SCALAR reference at Hi.pm