use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

my %words;
while (<DATA>) {
    $words{$_}++ for split;
}
print Dumper(\%words);

__DATA__
the the the and me
ok big dog me