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