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