use strict;
use warnings;
use List::MoreUtils qw(mesh);
use Data::Dumper;


my @array = ('source|ex|stat|ex2|desc|dep|ind');
my @columns = qw<source_id exchange_id status exchange desc depth_flag depth_indic>;
my @AoH;

foreach (@array) 
{
	push @AoH, { mesh(@columns, @{[split /\|/,(shift @array)]}) } ;  
};
print Dumper @AoH;