my $href = \%HoA;
sub sort_typeparm_ascending{
  sort{
        $href->{$a}[$col_id]
	      cmp
        $href->{$b}[$col_id]
      }
      keys %data
}