Select Code to Download

my @items = (1,5,6,3,5,2,4);
my $index = 0;
...
  do_something($items[$index]);
  $index = ($index+1) % @items;
}

my @items = (1,5,6,3,5,2,4);
my $index = -1;
...
    $index = -1;
  }
}

sub remove_item
{
...
  $index = $#part_1;
  @items = (@part_1, @part_2);
}