my $p;
my @new = grep { $p = $_ or 1 if $p ne $_ } @orig;