my %hash;
foreach $item (@array) {
   $hash{ $item } = ( !defined( $hash{ $item } ) ) ?
      $hash{ $item }++ : 1;
}