TMTOWTDI
[There's More Than One Way To Do It]

Always A Blog To Get Confident in Coding

Main Menu

Method 1:

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