@out=grep { lc($_) ne lc($test) } @out;