use strict;
use warnings;
use Data::Dumper;

my %types = ( 	
    TYPE1 => [
	{ NAME => 'Joe', ID => '022'}, 
	{ NAME => 'Sue', ID => '088'},
	{ NAME => 'Tom', ID => '108'}
	    ],
    TYPE2 => [
	{ NAME => 'Sue_B', ID => '089'},
	{ NAME => 'Sue_C', ID => '090'}
	    ]
);

splice @{$types{TYPE1}}, 1, 1, @{$types{TYPE2}};
print Dumper(\%types)