@out = grep $sd[$_] ne $sd[1+$_], 0 .. $#sd; With inline sort and a perverse twist:

my $prev;
@out = grep "$prev" ne ($prev = $_), sort @sd; # not for production co
+de
[download]

Makeshifts last the longest.