my @b;
for (@a) {
   push @b, $_ if !@b || $_ ne $b[-1];
}