@v=((grep { $_ <= $pivot } @$v), (grep { $_ > $pivot } @$v));