$ perl -v

This is perl 5, version 28, subversion 0 (v5.28.0) built for darwin-thread-multi-2level
...

##</code><code>##

$ perl -E 'my $href = { key => 42 }; my %h = $href->%*; say $h{key}'
42