while (($key, $value) = each(%msgids)) {
            if ($key =~ /$line/) {
                delete $msgids{$key}
            }
      }