Свяжите Массив:::: RestrictUpdates, может ограничить количество раз, Вы изменяете элементы в массиве.

РЕЗЮМЕ

используйте Связь:: Массив:: RestrictUpdates;

связь @foo, "Связывают Массив:::: RestrictUpdates", 1;
# Предел значения по умолчанию 1.
# Однажды может только быть изменен каждый элемент от массива
@foo = потенциальная яма (B C D E);
для (0.. 4) {$foo [$ _] = lc $foo [$ _];}
печатайте соединение ("-" ,@foo);
# Это будет печатать A-B-C-D-E и связку предупреждений

- или -

используйте Связь:: Массив:: RestrictUpdates;

связь @foo, "Связывают Массив:::: RestrictUpdates", [1,2,3,4];
# Это вызывает пределы первых 3 индексов
# Это также вынуждает любые дополнительные элементы от массива иметь 0 пределов
# и для этого быть unchangable/unsettable
@foo = потенциальная яма (B C D E);
для (0.. 3) {$foo [$ _] = lc $foo [$ _];}
для (0.. 3) {$foo [$ _] = uc $foo [$ _];}
для (0.. 3) {$foo [$ _] = lc $foo [$ _];}
для (0.. 3) {$foo [$ _] = uc $foo [$ _];}
печатайте соединение ("-" ,@foo);
# Это будет печатать A-b-C-d и связку предупреждений