my %hash;
foreach my $val (@array) {
  $hash{$val}++;
}