@list = grep{ (-M) <= 1} <*>;