sub convFieldToXML($) {
  my $fldref = shift;

  print "fldref=\n";
  dump($fldref);

  print "fldref[TXT]=\n";
  dump(@$fldref[TXT]);

  if (ref(@$fldref[TXT]) eq 'ARRAY') {
    foreach my $tmp (@$fldref[TXT]) {
      print "tmp=\n";
      dump($tmp);
    }
  }
  else {
    # snip --8<--;
  }
}

##</code><code>##

fldref=
[
  500,
  0,
  0,
  [
    ["\$a", "Tarina Babarista, pienest{ elefantista"],
    ["\$s", "(26'34); orkestroitu"],
    ["\$d", "Poulenc, Francis"],
    ["\$g", "Brunhoff, Jean de "],
    ["\$h", "P|ysti, Lasse"],
    ["\$j", "Fran*8aix, Jean"],
  ],
]
fldref[TXT]=
[
  ["\$a", "Tarina Babarista, pienest{ elefantista"],
  ["\$s", "(26'34); orkestroitu"],
  ["\$d", "Poulenc, Francis"],
  ["\$g", "Brunhoff, Jean de "],
  ["\$h", "P|ysti, Lasse"],
  ["\$j", "Fran*8aix, Jean"],
]
tmp=
[
  ["\$a", "Tarina Babarista, pienest{ elefantista"],
  ["\$s", "(26'34); orkestroitu"],
  ["\$d", "Poulenc, Francis"],
  ["\$g", "Brunhoff, Jean de "],
  ["\$h", "P|ysti, Lasse"],
  ["\$j", "Fran*8aix, Jean"],
]

##</code><code>##

fldref=
[
  500,
  0,
  0,
  [
    \["\$a", "Tarina Babarista, pienest{ elefantista"],
    \["\$s", "(26'34); orkestroitu"],
    \["\$d", "Poulenc, Francis"],
    \["\$g", "Brunhoff, Jean de "],
    \["\$h", "P|ysti, Lasse"],
    \["\$j", "Fran*8aix, Jean"],
  ],
]
fldref[TXT]=
[
  \["\$a", "Tarina Babarista, pienest{ elefantista"],
  \["\$s", "(26'34); orkestroitu"],
  \["\$d", "Poulenc, Francis"],
  \["\$g", "Brunhoff, Jean de "],
  \["\$h", "P|ysti, Lasse"],
  \["\$j", "Fran*8aix, Jean"],
]
tmp=
[
  \["\$a", "Tarina Babarista, pienest{ elefantista"],
  \["\$s", "(26'34); orkestroitu"],
  \["\$d", "Poulenc, Francis"],
  \["\$g", "Brunhoff, Jean de "],
  \["\$h", "P|ysti, Lasse"],
  \["\$j", "Fran*8aix, Jean"],
]