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