counting word occurances

[Rodrick Brown]

apple
orange
pear
pear
magno
apple

Given the following data can someone show me example code on how to count
how many of each different fruit

ie.

output should be somehting like

apple 2
orange 1
pear 1
mango 1

Note this isnt homework or anyting.

 

[Randal L. Schwartz]

Rodrick> Note this isnt homework or anyting.

Ding ding ding. Homework alert.

Not to mention "unable to tell a dead group from a live one".

 

[Jürgen Exner]

apple
orange
pear
pear
magno
apple

Given the following data can someone show me example code on how to
count how many of each different fruit

Well, assuming @foo contains the list of fruit, then

for (@foo) {
$bar{$_}++;}

will place the count in %bar.

output should be somehting like

The rest is left as an excercise.

jue