sub is_uniform {
    my %hash;
    @hash{@_} = ();
    !(1 - keys %hash);
}