my @b = map {$a[$_] eq $a[$_ + 1] ? () : $a[$_]} 0..$#a;