Select Code to Download

    my @rsids;
    my @buildids;
...
    ...
    print $out join(',',@rsids),
               "\t",join(',',@buildids), "\n";

    my @merges;
    my $twig = ...
...
    ...
    print $out join(',', map { $_->[0] } @merges ),
               "\t",join(',',map { $_->[1] } @merges ), "\n";