my @anew = map {
    $_ == 0 || $b[ $_ -1 ] ne $b[ $_ ] ? $a[ $_ ] : ()
} 0 .. $#a;