Are some tags missing ?. If so you will need to decide how to deal with them.

for my $record ($root->children) {
  my @tmp=();
  for my $col (@cols){
    if (defined $record->first_child($col)){
      push @tmp,$record->first_child($col)->text;
    } else {
      push @tmp,'';;        
    }
  }
  push @data,[ @tmp ];
}
[download]