use List::MoreUtils qw( all );
@array = qw (A A B C);
if (@array && all { $_ eq $array[0] } @array) {
    print "Uniform array: @array\n";
}