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