Select Code to Download

c:\@Work\Perl\monks>perl
use strict;
...
'rain' (2)
'the' (2)
'time,' (1)

my @sorted =
    sort { $a->[0] cmp $b->[0]  # sort first by alpha ascending
...
    map  [ $_, $word_count{$_} ],
    keys %word_count
    ;