Select Code to Download

sub recurse {
    my ($ref, $car, @cdr) = @_;
...
    $prev_car = $car;
    recurse($ref, @cdr);
}

$VAR1 = [
          {
...
          }
        ];