http://qs321.pair.com?node_id=302492


in reply to Help on array element counting

use strict; my @array = <DATA>; chomp @array; my %cnt; $cnt{$_}++ foreach (@array); print "$_ => $cnt{$_}\n" foreach (keys %cnt); __DATA__ MANGO APPLE GRAPES MANGO MANGO MANGO MANGO APPLES APPLES BANANA CORN APPLES