Oh if it were only that easy...

[jaymoo]

This node falls below the community's threshold of quality. You may see it by logging in.

[jeffa]

<sarcasm>
Ok, this is completely tasteless.
I mean, just look at the way you
have enclosed your braces.
For shame.
</sarcasm>

[johannz]

I'm voting this '--' not just because it's sexist, since we all occasionally make an accidentally sexist remark. I'm marking it '--' because it is blatently sexist and goes against the inclusive, accepting environment that I believe we have come to expect here at perlmonks.

Also, Jaymoo, if you make a mistake on a post, it is better to update it rather then re-enter it.

[LeGo]

The ninth line of code has chick not defined as a scalar. This might cause problems in the Pimp realm. Try:

{Big::Pimp pimpslap($chick);}

instead of

 
{Big::Pimp pimpslap(chick);}

LeGo

[Anonymous Monk]

Since $chick is a object of class Women, you can just use $chick->issexy instead of Women::issexy($chick). Also, you forgot the :: between Big::Pimp and (kidnap|pimpslap)

use Big::Pimp;
use Women;
foreach $chick (@world) {
    if ($chick->issexy) {
        Big::Pimp::kidnap($chick);
        Big::Pimp::pimpslap($chick) until $chick->ismine;
    }
    else {
        next $chick;
    }
}

[Anonymous Monk]

i don't know....i bet there are a few out there that might be able to use it... not me of course... :)