my @sorted = nkeysort {
  ( ( sort {$a<=>$b} (grep { $_ >= $pivot } @$_) ),
    ( sort {$a<=>$b} (grep { $_ <  $pivot } @$_) ) )[50]
} @data;