Select Code to Download

my %word = (
          'list' => 3,
...
          'at' => 1,
          'if' => 2,
);

print "$_ => $word{$_}\n" for sort keys %word;

print "$_ => $word{$_}\n"
   for sort {$word{$a} <=> $word{$b}} keys %word;

print "$_ => $word{$_}\n"
   for sort {
...
      $a cmp $b                   # sort keys asc
   } keys %word
;

use strict;
use warnings;
...
if that's so it would have been nice if they said
that in the docs because at first I thought it was
a filehandle of some kind.