local(%MARK);
grep($MARK{$_}, @ARRAY);
@RESULT = grep(!$MARK{$_}, @ARRAY);