Another way (perl 5.14+):

• sub { return splice [grep ..., @values] }