gistfile1.pl

my $paragraph = <>;
my @words = split(/\s+/, $para);
my %counts;
foreach my $word (@words) {
    $counts{length($word)}++;
}

foreach my $count (keys %counts) {
    my $num = $counts{$count};
    print "$num words with $count letters\n";
}