Select Code to Download

@arr=(1,2,3,4,5,6,7);
$n=3;
# @arr afterwards:
# (4,5,6,7,1,2,3)

push @arr,(shift @arr);