Select Code to Download

# Make walk() return a list and collect the results:
sub walk {
...
    my @big = walk($r);
    ...
};

# Make walk() augment the result list:
sub walk {
...
    my @big = walk($r);
    ...
};