foreach my $raRowPick ( @$raResults )
{
    print do{
       local $" = qq{\t};
       qq{@$raRowPick\n};
       };
}