foreach my $raRowPick ( @$raResults )
{
    print do{
       local $" = qq{\t};
       qq{@$raRowPick\n};
       };
    if( $raRowPick->[ 0 ] eq $theIdWeWant )
    {
        doSomethingWith( $raRowPick[ 0 ] );
    }
}