perl - find missing numbers in array

Method 1:

@a = (1,3,4,6);
@c = map $a[$_-1]+1..$a[$_]-1, 1..@a-1;
print join(" ", @c);

Read more »