in reply to pushing an anonymous hash onto an array on the fly

I am not sure it is quite readable, but it works: 
@{ $AoH[@AoH] }{ qw<source_id exchange_id status exchange desc depth_f
+lag depth_indic> } = split /\|/;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom