@ar=([5,1], [1,2], [3,3], [2,5], [4,6], [6,4]);
printf qq/%s,%s\n/,$_->[0],$_->[1] for(sort{$a->[0]<=>$b->[0]} @ar);