my $N = shift;    
    my @factor = prime_factors( $N );
    # KEEP THIS LINE
    print "$_\n" for @factor;
    return 1 if @factor == 1;
        # ... rest of the code
        return $f;