for (sort keys %locks) {
  Log 0, "ERROR: address $_ locked at line $locks{$_} but never unlocked.";
}