Help for this page
my @repl = (73, 120, 124, 170, ... ); @arry[@repl] = (15) x @repl;
for (@repl) { $arry[$_] = 15; }