my @list = (rand(1), rand(1), rand(1));
my $less=1;
for (@list) { $less=0, last if $_>=0.5; }

##</code><code>##

for (@list) { last if $_ < 0.5; }
my $less = $loop_ran_to_completion;

##</code><code>##

use Data::Dump;
@list = (rand(1), rand(1), rand(1));
dd \@list;
OUT:
{	ANY:
	{
		for (@list)
		{	next ANY if $_ > 0.5;
		}
		# if all elements are small we come here
		print "All Small\n";
		next OUT
	}
	# if any element is big we come here
	print "Some Big\n";
}