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