my @list = ( 41888, 41889, 41890, 41892, 41895 );

my @missing = grep { my $x=$_; not grep $x==$_, @list } $list[0]..$list[$#list];

print "@missing\n";