Select Code to Download

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

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

use Data::Dump;
@list = (rand(1), rand(1), rand(1));
dd \@list;
...
    # if any element is big we come here
    print "Some Big\n";
}