my $count = $.;  # input line number

##</code><code>##

  delete $locks{$address};

##</code><code>##

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