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"; } }