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