for my $i (@array)
{
  $hash{$i}++;
}