my $all = [ $data1, $data2 ];

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