my @repl = (73, 120, 124, 170, ... );
@arry[@repl] = (15) x @repl;

##</code><code>##

for (@repl) {
    $arry[$_] = 15;
}