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