splice @$arr, --$i, 1
            if $seen{$arr->[ $i++]}++;