Select Code to Download

use strict;
use warnings;
use List::MoreUtils qw(mesh);
...
    push @AoH, { mesh(@columns, @{[split /\|/,(shift @array)]}) } ;  
};
print Dumper @AoH;

C:\>perl test.pl
$VAR1 = {
          'source_id' => 'source',
...
        };

C:\>