sort { abs( $a - $b ) > 200 ? $b <=> $a : $a <=> $b } [download]
In reply to Re^2: Sorting through a rollover by RazorbladeBidet in thread Sorting through a rollover by onegative