есть мнение

что perl недостаточно выразительный язык. по сравнению с

quicksort=: (($:@(<#[) , (=#[) , $:@(>#[)) ({~ ?@#)) ^: (1<#)


утащил отсюда