foreach my $match ( @matches ) {
my $id = $match->get_docid();
my $result = $did2pkg->{$id};
foreach (split /\000/o, $result) {
my @data = split /\s/, $_, 3;
foreach my $match ( @matches ) {
my $id = $match->get_docid();
my $result = $did2pkg->{$id};
foreach (split /\000/o, $result) {
my @data = split /\s/, $_, 3;