sub getTitles() { my @titles=(); my $recordRef=shift; my $title=$recordRef->{titles}->{title}->{style}->{content}; return $title; } Pseudo-hashes are deprecated at loftin.pl line 131. Argument "\x{54}\x{68}..." isn't numeric in hash element at loftin.pl line 131. Bad index while coercing array into hash at loftin.pl line 131. $VAR1 = [ { 'style' => { 'face' => 'normal', 'content' => 'Whitaker, D. M.', 'font' => 'default', 'size' => '100%' } }, { 'style' => { 'face' => 'normal', 'content' => 'Carroll, A. L.', 'font' => 'default', 'size' => '100%' } }, { 'style' => { 'face' => 'normal', 'content' => 'Montevecchi, W. A.', 'font' => 'default', 'size' => '100%' } } ]; $VAR1 = [ { 'style' => { 'face' => 'normal', 'content' => 'Whitaker, D. M.', 'font' => 'default', 'size' => '100%' } }, { 'style' => { 'face' => 'normal', 'content' => 'Montevecchi, W. A.', 'font' => 'default', 'size' => '100%' } } ]; $VAR1 = [ { 'style' => { 'face' => 'normal', 'content' => 'Whitaker, D. M. ', 'font' => 'default', 'size' => '100%' } }, { 'style' => { 'face' => 'normal', 'content' => 'Montevecchi, W. A.', 'font' => 'default', 'size' => '100%' } } ];