@a = (41888, 41889, 41890, 41892, 41895);
@m = map $a[$_-1]+1..$a[$_]-1, 1..@a-1;
print join(" ", @m), $/;