$prev = "not equal to $in[0]";
    @out = grep($_ ne $prev && ($prev = $_, 1), @in);