for my($k, $v) (map +($_, $h{$_}), sort keys %h) {
  say "$k => $v";
}

##</code><code>##

for my($k, $v) (%h{sort keys %h}) {
  say "$k => $v"
}

##</code><code>##

% perl -E '%h = (1..6);
  say "arrayish slice"; say for @h{1,5};
  say "hashish slice"; say for %h{1,5}'
arrayish slice
2
6
hashish slice
1
2
5
6
%