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;
    }
}
[download]