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