List::MoreUtils qw/zip natatime/;

##</code><code>##

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

use Data::Dumper;


my $data1 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
 },
 ];

my $data2 = [
  {
    'CAR1' => '1b',
    'CAR2'  => '2b',
    'CAR3' => '3b',
    'CAR4' => '3d',
  },
];

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

##</code><code>##

my $data3 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
    'CAR1' => '1b',
    'CAR2'  => '2b',
    'CAR3' => '3b',
    'CAR4' => '3d',
 },
 ];