Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "\nHUGE OFFSETS:\n";
print "$huge_offset{$_}: ".($start{$_}-1)." to ".($_ - 1)."\n" for( so
+rt {$a<=>$b} keys %huge_offset);

BEFORE:  1 2 3 4 5 6 7 8 9 10
AFTER:   2 3 4 5 1 6 7 8 9 10
...
HUGE OFFSETS:
1: 0 to 4