There's more than one way to do things  
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

