Sorry, I missed that you have no ending zeros. This change recreates the desired output:

print $b->from_decimal($_), "\n" for
    grep { $_ % $length }
    $start .. $end;
[download]