my @rsids;
    my @buildids;
    my $twig = ...
        'Rs/MergeHistory' => sub {
             my $rsid = ...;
             my $buid = ...;
             push @rsids, $rsid;
             push @buildids, $buid;
        },
    ...
    print $out join(',',@rsids),
               "\t",join(',',@buildids), "\n";

##</code><code>##

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