Word count

wordcount.pl

#!/usr/bin/perl

my @w;
while (<STDIN>) { chomp; while (split /[^-\w]+/) { push @w, lc $_; } }

my $c = {};
while (@w) { $c->{$_} += 1; }

my @k = reverse sort { $c->{$a} <=> $c{$b} } keys %{$c};
while (@k) { print $c->{$k}, $k, "\n"; }