Select Code to Download

use warnings;
use strict;
...
print Dumper sort ro @limit;
                                                                      
+          
sub ro { ( abs($a - $b) > 5000 ? $b <=> $a : $a <=> $b ) }

MIDDLE
$VAR1 = 49998;
...
$VAR4 = '00001';
$VAR5 = '00002';
$VAR6 = '00003';