If you have a list or array with the indexes that need to be replaced, you can use an array slice:

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

Or of course a simple loop will do as well:

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