$ 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