sub sort_typeparm_descending{
  sort{

        $href->{$b}[ 0 ]
	      cmp
        $href->{$a}[ 0 ]
	       ||
        ????? KEY{$b} ?????
	      cmp
        ????? KEY{$a} ?????


      }
      keys %data;
}