% perl blocks x