use strict;
use warnings;

my @array= 1..10;

my $idx=0;
for my $elem (@array) {
   print "<\$array[$idx] == $elem> @array\n";
   shift @array;
   $idx++
}