@out = grep $sd[$_] ne $sd[1+$_], 0 .. $#sd;