my@r;@l=grep{c($_)?0*push@r,$_:1}@l;