Ordenação rápida em Perl
