PERL: Quick Sort

QuickSort.PL

#http://rosettacode.org/wiki/Sorting_algorithms/Quicksort#Perl
sub quick_sort {
    my @a = @_;
    return @a if @a < 2;
    my $p = pop @a;
    quick_sort(grep $_ < $p, @a), $p, quick_sort(grep $_ >= $p, @a);
}
my @array = (1,4,2,3,6,5,8,7);
@array = quick_sort @array;
print "@array\n";