@out = grep { AUSDRUCK } @in; @out = map { AUSDRUCK ? $_ : () } @in;