use v5.16;
my @sorted = (sub {
	return @_ unless @_ > 1;
	my $pivot = splice(@_, int(@_/2), 1);
	my (@small, @big);
	push @{ $_ < $pivot ? \@small : \@big }, $_ for @_;
	return (__SUB__->(@small), $pivot, __SUB__->(@big))
})->(@unsorted);

##</code><code>##

use v5.16;
use List::MoreUtils 'part';
my @sorted = (sub {
	return @_ unless @_ > 1;
	my $pivot = splice(@_, int(@_/2), 1);
	my ($small, $big) = part { $_ > $pivot } @_;
	return (__SUB__->(@$small), $pivot, __SUB__->(@$big))
})->(@unsorted);

##</code><code>##

my @sorted = do { my $SUB; $SUB = sub {
	return @_ unless @_ > 1;
	my $pivot = splice(@_, int(@_/2), 1);
	my (@small, @big);
	push @{ $_ < $pivot ? \@small : \@big }, $_ for @_;
	return ($SUB->(@small), $pivot, $SUB->(@big))
}}->(@array);