I can golf that down    :-)

sub quicksorty {
    return @_ if @_ < 2;
    print "My pivot is $_[0]\n";
    my ( @l, @e, @g );
    push @{ ( \@e, \@g, \@l )[ $_ <=> $_[ 0 ] ] }, $_ for @_;
    quicksorty( @g ), @e, quicksorty( @l );
    }
[download]