for(@array) {
    $hash{$_}++;
}