# 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;