$val >= $ranges[$range]{stop})
 becomes
$val > $ranges[$range]{stop}) 

##</code><code>##

my $iVal = $ranges[$range]{last}++;
becomes
my $iVal = ++$ranges[$range]{last};