# ASSERTION: array contains at least 2 elements
@v = (1,2,3,4,5);

$flag = 0;
$first = $v[0];
foreach ( @v[1,] ) { # Starts from second element
	print "Examining $_...\n";
	if ($_ != $first) {
		$flag = 1;
		last;
	}
}
print "All elements are equal" unless $flag;

##</code><code>##

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

map { $set{$_} = 1 } @v;

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