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