sub quicksort {
    return @_ unless @_ > 1;
    my $pivot = shift;
    return (
        quicksort( grep $_ < $pivot, @_ ),
        $pivot,
        quicksort( grep $_ >= $pivot, @_ ),
    );
}