use List::Util qw[ reduce ];
my @in = ( 41888, 41889, 41890, 41892, 41895 );
my @missing;
reduce{ push @missing, $a+1 .. $b-1; $b } @in;
print @missing;

41891 41893 41894

##</code><code>##

my @in = ( 41888, 41889, 41890, 41892, 41895 );
my @missing;
push @missing, $in[ $_ ] +1 .. $in[ $_+1 ] -1 for 0 .. $#in-1;
print @missing;

41891 41893 41894