Select Code to Download

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