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