my @list = (41888, 41889, 41890, 41892, 41895);
my $lo = $list[0];
my $hi = $list[$#list];
my $idx = 0;
for ($cnt=$lo;$cnt<=$hi;$cnt++) {
  if ($cnt == $list[$idx]) {
    $idx++;
  } else {
    print "Missing: $cnt\n";
  }
}
[download]