($a,$b)=($b,$a); #### ($si,$sn) = sort {$a<=>$b} $si, $sn