Help for this page
sub while_with_shift_push { my $ref; ... push( @$ref, shift( @cp ) ) while @cp; return $ref; }