use strict;
use Data::Dumper;
my %hash;
(chomp, $hash{$_}++) for <DATA>;
print Dumper(\%hash);
__DATA__
camel
flea
camel
dog
frog
jabberwock
frog
camel
__END__
$VAR1 = {
          'flea' => 1,
          'camel' => 3,
          'dog' => 1,
          'jabberwock' => 1,
          'frog' => 2
        };