Select Code to Download

    my (@less, @equal, @greater, @answer);

    unshift(@answer, @equal); # was @equals

My pivot is 5
My pivot is 3
My pivot is 6
answer: 9 6 5 4 3 1

  if ($_ < $pivot) {
    push(@less, $_);
...
    push(@equal, $_);
  }
  # etc...