Select Code to Download

sub process {
    my( $AoA,  $thingToProcess ) = @_;
...
    @{ $AoA->[ $thingToProcess ] } = ( $r1, $r2, $r3, $r4, $r5, $r6, $
+r7 );
    return;
}

sub process {
    my( $AoA,  $thingToProcess ) = @_;
...
    ...
    return;
}