What about this one, is this code condensed enough?

#!/usr/bin/perl -w
use strict;
use warnings;

my %counter;
print
    "This program records all of the words you type and counts how oft
+en you type them.\nPlease type in a list of words.  Type done when yo
+u are finished.\n";

$counter{$_}++  while chomp($_ = <STDIN>) && !/^done$/i;

foreach my $line ( sort keys %counter ) {
    printf "You typed '$line' $counter{$line} time%s.\n", ($counter{$l
+ine} == 1) ? "" : "s";    
}
[download]

Also note the 'my' in the foreach, always use this idiom!