Select Code to Download

my $aVars=  [
    ["\$a", "Tarina Babarista, pienest{ elefantista"],
...
  ];

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

foreach my $tmp (@{$fldref->[3]}) {
  print "$tmp: <@$tmp>\n";
...
ARRAY(0x81e5a4c) <$g Brunhoff, Jean de >
ARRAY(0x81f236c) <$h P|ysti, Lasse>
ARRAY(0x81f239c) <$j Fran*8aix, Jean>