$h{test} = sub{ print 'hi' };;
$h{test}();;

$p = \%h;;
$p->{test}();;
hi