my %seen=();
while(<>)
{
    chomp;
    foreach my $word ( grep /\w/, split )
    {
        $word =~ s/[. ,]*$//; # strip off punctuation, etc.
        $seen{$word}++;
    }
}

use Data::Dumper;
$Data::Dumper::Terse = 1;
print Dumper \%seen;


##</code><code>##

Click on a letter above to see phrasal verbs beginning with that letter.
You will get a list of phrasal verbs and their definitions. If you then
click on an individual verb, you will get more information on it,
including example sentences, whether it is British or American English,
and whether it is separable or not.


##</code><code>##

{
          'you' => 2,
          'a' => 2,
          'not' => 1,
          'that' => 1,
          'sentences' => 1,
          'individual' => 1,
          'see' => 1,
          'on' => 3,
          'American' => 1,
          'or' => 2,
          'verb' => 1,
          'Click' => 1,
          'list' => 1,
          'English' => 1,
          'letter' => 2,
          'their' => 1,
          'whether' => 2,
          'with' => 1,
          'and' => 2,
          'verbs' => 2,
          'of' => 1,
          'is' => 2,
          'definitions' => 1,
          'to' => 1,
          'above' => 1,
          'will' => 2,
          'If' => 1,
          'get' => 2,
          'including' => 1,
          'beginning' => 1,
          'it' => 3,
          'example' => 1,
          'information' => 1,
          'separable' => 1,
          'British' => 1,
          'click' => 1,
          'phrasal' => 2,
          'then' => 1,
          'You' => 1,
          'more' => 1,
          'an' => 1
        }