use strict;
my %hash = (
            name => "foo",
            code => sub{
                        print "name: ", "foo", "\n";
                       },
            );
$hash{code}->();
_____
name: foo

##</code><code>##

use strict;
my %hash = (
            name => "foo",
            code => sub{
                        print "name: ", $hash{name}, "\n";
                       },
            );
$hash{code}->();