Select Code to Download

...
    my $raResults = [];
...
    }
    return $raResults;
...

foreach my $raRowPick ( @$raResults )
{
...
       qq{@$raRowPick\n};
       };
}

foreach my $raRowPick ( @$raResults )
{
...
        doSomethingWith( $raRowPick[ 0 ] );
    }
}