my $all; push @{ $all }, @$data1, @$data2; foreach my $row (@$all) { my $name = $row->{ NAME }; my $date = $row->{ DATE }; my $number = $row->{ NUMBER }; my $car1 = $row->{ CAR1 }; my $car2 = $row->{ CAR2 }; my $car3 = $row->{ CAR3 }; warn Dumper $name,$date,$number,$car1,$car2,$car3; }