perl -MO=Xref -e "my @array = sort { $a <=> $b } ( 2, 8, 3 );"