my %NewHashArray;
foreach my $key (keys %{$HashArray1}){
    %NewHashArray{$key}=[$$$HashArray1{$key}[0],$$$HashArray1{$key}[1]],$$$HashArray2{$key}[1];
}