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

But that's just me . . .