Select Code to Download

# ASSERTION: array contains at least 2 elements
@v = (1,2,3,4,5);
...
    }
}
print "All elements are equal" unless $flag;

@v = (1,2,3,4,5);

...
# Elements are equal, unless set contains more than one element
@k = keys %set;
print "All elements are equal" unless $#k != 1;