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";
}