%hash = map {$_=>$c{$_}++} @a;
foreach (keys %d) {print "$_ occurs $c{$+}\n"};