Select Code to Download

my $first = first{ length > 3 } @array;
print $first;

my $first;
for ( @array ) {
...
    last;
}
print $first;