Wordcount in Perl

use strict;

my %count;

while (<>)
{
    foreach my $word (split /[^A-Za-z]+/)
    {
	$count{lc($word)}++;
    }  
}
	
my $n = 0;
foreach my $word (sort {$count{$b} <=> $count{$a}} keys %count)
{
    last if ++$n > 10;
    print "$word $count{$word}\n";
}