Select Code to Download

while (<>) {
    chop;
...
foreach $w (keys %count) {
    print "$count{$w} $w\n";
}

2 usurpations,
2 purpose
...
1 formidable
1 obstructing
1 uncomfortable,