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>