($p->[$_], $p->[$swap]) = ($p->[$swap], $p->[$_]);