@a = (1,3,2);
sort {$a <=> $b} gives you (1,2,3), when 
sort {$b <=> $a} gives you (3,2,1)