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

my $fldref= [ 500, 0, 0, $aVars ];

##</code><code>##

foreach my $tmp (@{$fldref->[3]}) {
  print "$tmp: <@$tmp>\n";
}

#outputs
ARRAY(0x814ec28) <$a Tarina Babarista, pienest{ elefantista>
ARRAY(0x81e652c) <$s (26'34); orkestroitu>
ARRAY(0x81e64fc) <$d Poulenc, Francis>
ARRAY(0x81e5a4c) <$g Brunhoff, Jean de >
ARRAY(0x81f236c) <$h P|ysti, Lasse>
ARRAY(0x81f239c) <$j Fran*8aix, Jean>