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

##</code><code>##

my $first;
for ( @array ) {
	next unless length > 3;
	$first = $_;
	last;
}
print $first;