Select Code to Download

my $i1 = firstidx { $_ == 1 } @array;

use strict;
use warnings;
...
        $init = 0;
    }
}

23:20 >perl 1940_SoPW.pl
<748548> <843435> <178789>
...
firstidx 2.47/s     108%     106%      37%       --

23:20 >