perl -e 'my $ar = join( ",",sort(1,5,2,3,4) );print "[$ar];\n";'