Select Code to Download

foreach (@array) {
    @hash{qw<source_id exchange_id status exchange desc depth_flag dep
+th_indic>} = split /\|/;
    push @AoH, {%hash};
};

foreach (@array) {
    push @AoH, { @{ qw<source_id exchange_id status exchange desc dept
+h_flag depth_indic> } = split /\|/} ;  
};