@end = quicksort(3, 2, 6, 5, 4);
foreach (@end) {
	print "$_ ";
}
print "\n";

sub quicksort {
	my $pivot=pop;
	my @less; my @great;
	foreach (@_) {
		if ($_<$pivot) {
			push @less,  $_;
		} else {
			push @great, $_;
		}
	}
	return quicksort(@less), $pivot, quicksort(@great);
}