Select Code to Download

foreach my $r (@array){
    my @big;
...
        walk($_)
    }
}

foreach my $r (@array){
    my @big;
...
        walk($big, $_)
    }
}

foreach my $r (@array){
    my @big = walk($r);
...
    }
    return @big;
}