$h{$key} = 1; delete $h{$key}