[ sort{ $a → { 'title' } cmp $b → { 'title' } } map{ map{ map{ $_ } @{ $_ } } grep{ ref( $_ ) } values %$_ } grep{ ref( $_ ) } values %$records ]
ПЕРЛОТА
ПЕРЛОТА