Select Code to Download

use strict;
use warnings;
...
close $fIn;

printf "%-10s %3s\n", $_, $words{$_} for sort keys %words;

  word     count
and          1
...
me           2
ok           1
the          3