my %hash;
foreach ( @keys ) {
    $hash{$_}++;
}