@selected = grep EXPR, @input;
@selected = map { if (EXPR) { $_ } } @input;