while ($count<=@IDnumber) {
  if ($match == $IDnumber[$count]){
    goto NEXTLINE1;
  }
  $count++;
}

##</code><code>##

next if(grep {$_ eq $match} @IDnumber);