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