Select Code to Download

my $p = shift;
my %residues;
...
foreach (sort {$a <=> $b} keys %factors) {
   print "$p = $_*", $p/$_, "\n";
}

1021% factor.pl 54
54 = 2*27
54 = 6*9
54 = 18*3
54 = 54*1