my $all = [ @$data1, @$data2 ];
print Dumper $all;