@a=('a', 'b', 'a', 'a');
foreach ( @a ) { $c{$_}++; }
foreach ( keys %c ) { print "$_ occurs $c{$_}\n";