Select Code to Download

           use List::Util qw(first max maxstr min minstr reduce shuffl
+e sum);

      first BLOCK LIST
...
           "first" returns the first element where
           the result from BLOCK is a true value.

  DB<121> @a=0..10
 => (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

  DB<122> first { "0" eq $_ } @a
 => 0