histo.pl

use Lingua::StopWords q(getStopWords);
use Lingua::EN::Inflect::Number qw/to_S/;
my  $stop = getStopWords("en");
$stop->{$_}++ for qw/thee thou ye shall unto hath/;
my %hash;
while (<>) {
    chomp;
    my @words = split /\s+/, $_;
    for (@words) {
        $_= to_S(lc $_);
        next if $stop->{$_};
        $hash{$_}++;
    }
}
print "$_; $hash{$_}\n" for sort keys %hash;