Select Code to Download

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

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

$VAR1 = {
          'TYPE2' => [
                       {
...
                       }
                     ]
        };