my %hash = (code => sub{print 'x'});
&{$hash{code}};