my @v=((sort {$a<=>$b} (grep { $_ >= $pivot } @$v)),
       (sort {$a<=>$b} (grep { $_ < $pivot } @$v)));