while (@vars) { print "directive: "; print join " ", map munge_var($_), splice @vars, 0, 4; print $/; }