my @result = map { g($_) } grep { f($_) } @list;