my @a = (1 .. 9);  # for instance!!
   for my $e (@a) {
     my $ee = $e+1;  # copy current element
   }