gomi
sub qsort{my$p=@_?shift:return;qsort(grep{$_<$p}@_),$p,qsort(grep{$_>=$p}@_)}