Select Code to Download

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

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