Thanks for the feedback. I left out the my and the use (warnings && strict) while pasting. My bad.
The reason I have the wantarray is because I wanted to be able to ignore the index with out forcing list context.

my ($match,$index) = findone { $_ > 100 } @nums ;
my $matchonly = findone { $_ > 100 } @nums ;
[download]

Your right about the local $_ (Lava flow from first try). I lost it all together as $_ is localized by for anyway.
Could you elaborate on what you had in mind for an end hook?

What I think is interesting about this (for me anyway) is being able to retain state without resorting to objects. Using an %args hash for a function and this technique, it should be pretty easy to write iterator functions without OO. Nothing wrong with objects but for something like this, the grep syntax feels more natural and looks better to me.
I don't know if there is anything on CPAN for this. The closest I found was first() in List::Util
It was mainly an "I should be able to do that.." exercise.

-Lee

"To be civilized is to deny one's nature."

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.