my @foo = map { transform($_) } grep { choose($_) } @list;