$ perl -e'
   use v5.36;
   my %h = ( a => 1, b => 2, c => 3, d => 4 );
   say for %h{qw( a b )};
'
a
1
b
2

##</code><code>##

$ perl -e'
   use v5.36;
   my %h = ( a => 1, b => 2, c => 3, d => 4 );
   say scalar( %h{qw( a b )} );
'
2

##</code><code>##

$ perl -e'
   use v5.36;
   my %h = ( a => 1, b => 2, c => 3, d => 4 );
   say $h{ b };
'
2