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

##</code><code>##

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