perl -E'join("|", sort {do{say "Inside sort loop"} and $a <=> $b} 3,1,2)'