view release on metacpan or  search on metacpan

demo/1m_stmts.pl  view on Meta::CPAN

# execute 1 million iterations of a 3 statement + condition loop
my $i = shift || 1_000_000;
while (--$i) {
    1;
    ++$a;
    1;
}