Help for this page
splice @{$types{TYPE1}}, 1, 1, ({%{$types{'TYPE2'}[0]}},{%{$types{'TYP +E2'}[1]}});
splice @{$types{TYPE1}}, 1, 1, map {{%$_}} @{$types{'TYPE2'}};