my @list = ( 41888, 41889, 41890, 41892, 41895 ); my @missing = do { my %missing; undef @missing{ $list[ 0 ] .. $list[ -1 ] }; delete @missing{ @list }; keys %missing; };