undef $hash{$_->{'type'}}{ $_->{'name'} } for @$array;

##</code><code>##

        print "        $k2\n";