sub safe_inc {
  lock ${$h{$k}};
  ${$h{$k}} = ${$h{$k}} + 1;
}