sub x() { $y + $z } local $y = 10; local $z = 12; print x;