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);