http://qs321.pair.com?node_id=388338


in reply to Finding missing numbers in a list

Not exactly the model of efficiency... 
my @list = ( 41888, 41889, 41890, 41892, 41895 );

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

print "@missing\n";

[download]

-- All code is 100% tested and functional unless otherwise noted.

In Section Seekers of Perl Wisdom