perl -E "@ar=(1..$ARGV[0]);foreach(@ar){shift @ar;}print qq(@ar\n)" 4
3 4

perl -E "@ar=(1..$ARGV[0]);foreach(@ar){shift @ar;}print qq(@ar\n)" 10
6 7 8 9 10

perl -E "@ar=(1..$ARGV[0]);foreach(@ar){shift @ar;}print qq(@ar\n)" 20
11 12 13 14 15 16 17 18 19 20