Easier way to swap two values:

($a,$b)=($b,$a);
[download]

So we get:

($si,$sn) = sort {$a<=>$b} $si, $sn
[download]

I believe this is straight out of 'Learning Perl'