sub theroad{ while(1){ print "goes ever on \n"; } } $down_from{$the_door}{began}; now->far_ahead( the_road_has_gone ) && i->must( follow ); if($i){ print "can"; } @pursuing=("it", "with" "eager feet"); UNTIL: $it =~ $some_larger_way WHERE: &many(paths) && &errands(meet); AND: $whither{then}="i cannot say";