You can use a hash:

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

That will return true only if %hash has exactly one key.