Think about Loose Coupling  
PerlMonks 
Re: Solving math equationsby rbc (Curate) 
on Nov 10, 2002 at 05:18 UTC ( #211725=note: print w/ replies, xml )  Need Help?? 
Well if X or Y cannot equal one what would happen if X * Y = 3? Or if X * Y = prime number. Are you trying to write a function that return nonprime numbers? How will you check for primes? So are you writting a function that will calucate prime numbers? I guess I don't understand your question.
In Section
Seekers of Perl Wisdom

