@divisors = grep { $number % $_ == 0 } 1 .. sqrt($number);

##</code><code>##

push @divisors, map {$number == $_*$_ ? () : $number/$_} reverse @divisors;