use strict;
use warnings;

my(@phrase) = ("apple", "apple", "banana", "banana", "pear", "pear", "pear", "kiwi", "kiwi");
my($i) = 0;
my($j) = 0;
my(%wordfreq) = ();

for $i (@phrase) {
	$wordfreq{"$phrase[ $j ]"}++;
#	print "$wordfreq{\"$phrase[ $j ]\"} appears $wordfreq{\"$phrase[ $j ]\"}\n";
	$j++;
}

print keys %wordfreq;
print $wordfreq{"apple"};
print $wordfreq{"banana"};
print $wordfreq{"pear"};
print $wordfreq{"kiwi"};