my $first = first { $x > 0 } @array;  # List::Util