use strict;
use warnings;

my $words = <<WORDS;
i have a large mass of files mostly pdf that i want to reorganize based on
keyword frequency as a first step i obviously need to analyze each file
basically i'd like to so something akin to what in sas is called a proc freq
on each file and extract a list of the top 10 keywords for each those stats
would be plugged into a spreadsheet, which would be parsed separately
eventually any suggestions on links on how to get started on this thanks in
advance
WORDS
my %freq;

++$freq{$_} for split /\s+/, $words;

print "$_: $freq{$_}\n" for sort {$freq{$b} <=> $freq{$a}} keys %freq;