Select Code to Download

use Algorithm::Loops qw( NestedLoops );
use List::Util       qw( reduce sum );
...
                          0..$#_;
   }
);