Select Code to Download

my @array=(1..10);
print "@array\n";
...
shift (@array);
print "@array\n";
}

1 2 3 4 5 6 7 8 9 10
2 3 4 5 6 7 8 9 10
...
8 9 10
9 10
10

1 2 3 4 5 6 7 8 9 10
2 3 4 5 6 7 8 9 10
...
4 5 6 7 8 9 10
5 6 7 8 9 10
6 7 8 9 10