sub juliette {
romeo();
romeo();
for $thou (@are) { /romeo/; }
}