@output = @input[ grep $_ & 1, 0 .. $#input];
[download]

($mod, $val) = (2, 1);
@output = @input[ grep $_ % $mod == $val, 0 .. $#input];
[download]