use warnings;
use strict;
use integer;
...
my $n = $number/10000;
...
my $n = $number/1000;
...