Something

alias checkseries {
  var %i, %j
  var %newid, %new = 0

  %i = 1
  while (%i <= $hget(series).size) {
    %j = 1
    while (%j <= $hget(series_old).size) {
      if (%new == 0) {
        if ($gettok($hget(series,%i),1,9) == $gettok($hget(series_old,%j),1,9)) {
          if ($gettok($hget(series,%i),2,9) == $gettok($hget(series_old,%j),2,9)) {
            %new = $hget(series,%i)
            %newid = %i
          }
        }
      }
      inc %j
    }
    inc %i
  }