@new = map { $p ne $_ ? $p = $_ : () } @orig;