Select Code to Download

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

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