Select Code to Download

List::MoreUtils qw/zip natatime/;

#!/usr/bin/perl
use strict;
...
my $new_data;
push @{ $new_data }, $data1,$data2;
print Dumper $new_data;

my $data3 = [
{
...
    'CAR4' => '3d',
 },
 ];