Select Code to Download

time perl -wle '
...
while () { push @x, $a; $a++ and $c++; last if $c == $e } 
print scalar @x' 4

time perl -MAlgorithm::Combinatorics=:all -wle '
...
push @x, $x; undef $x } 
print scalar @x' 4