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

use Data::Dumper;

my $data1 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
 },
 {
   'NAME' => 'ANTHONY RD',
   'DATE' => '2012-01-07',
   'NUMBER' => '00003',
 },
 ];

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

my $all;

push @{ $all }, $data1, $data2;

foreach my $row (@$all) {
   
   my $name = $row->{ NAME };
   my $car1 = $row->{ CAR1 };

   warn Dumper $name;
   warn Dumper $car1;


   
 }