$ perl -wE 'my $x = { y => sub { 0 } }; say $x->{y}'
CODE(0x7f8c34026a60)