Select Code to Download

use strict;
use warnings;
...

my %hashslice2 = map { /^TYPE/ ? ($_,$hash{$_}) : () } keys %hash;
print Dumper(\%hashslice2);

use strict;
use warnings;
...
my %hashslice2;
@hashslice2{@keys} = @hash{@keys};
print Dumper(\%hashslice2);