Select Code to Download

% perldoc List::Util

...
               $foo = first { defined($_) } @list    # first defined v
+alue in @list
               $foo = first { $_ > $value } @list    # first value in 
+@list which
                                                     # is greater than
+ $value