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";