# @array = (list, of, items);
foreach my $perm (@index_permutation) {
 my @indices = @$perm;
 foreach (@index) {
  # do something with @array[$_];
 }
}