Select Code to Download

sub divisors {
  my($n,@f) = @_;
  my @d = (1);
...
  @d = sort { $a <=> $b } @d;
  @d;
}