my $prev = -1;
@list = grep { 
    my $res = $prev != $_; 
    $prev = $_; 
    $res 
} map {
    use integer;
    my $x = $_ % $w_ / 3;
    my $y = $_ / $w_ / 3;
    $x + $y * $w
} @list;