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; } }