Select Code to Download

$ perl
my %h = 'a'..'f';
...
print "$_ => $h{$_}\n" for sort keys %h;
^D
[the same output]