Simplest word count implementation

wc.pl

#!/usr/bin/perl

while (<>) { $hash{$_} ++ foreach split /\s+/, $_; }
print "$_: $hash{$_}\n" foreach sort { $hash{$a} <=> $hash{$b} } keys %hash;