Select Code to Download

sub quicksorty {
    return @_ if @_ < 2;
...
    push @{ ( \@e, \@g, \@l )[ $_ <=> $_[ 0 ] ] }, $_ for @_;
    quicksorty( @g ), @e, quicksorty( @l );
    }