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