#! perl
use strict;
use warnings;
use Data::Dump;

my   $count = 0;
my   @list  = (rand(1), rand(1), rand(1));
dd  \@list;

for (@list)
{
    last if $_ < 0.5;
    ++$count;
}

if ($count < @list)
{
    print "exited via last\n";
}
else
{
    print "ran to completion\n";
}