#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;


my $data1 = [
{
   'NAME' => 'JOE DOE',
   'DATE' => '2015-05-05',
   'NUMBER' => '00001',
 },
 ];

my $data2 = [
  {
    'ACCOUNT1' => '1b',
    'ACCOUNT2' => '2b',
    'ACCOUNT3' => '3b',
    'ACCOUNT4' => '3d',
  },
];

push @{ $data1 }, @{ $data2};
print Dumper $data1;

</code<br><br>
No success, since I trying to get that:<br>
<code>

my $data1 = [
{
   'NAME' => 'JOE DOE',
   'DATE' => '20015-05-05',
   'NUMBER' => '00001',
   'ACCOUNT1' => '1b',
   'ACCOUNT2'  => '2b',
   'ACCOUNT3' => '3b',
   'ACCOUNT4' => '3d',
 },
 ];