splice comes to help.

@a = (1,2,3,4,5,6);
@b = splice(@a, $#a - 2, 3);
print @b;
[download]