print "$_ is perfect\n" if (sum(factors($_),1) == $_);