Select Code to Download

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

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

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