for( my $i=0; $i < scalar(@vars); $i++ ){
	unless( $i % $LIMIT ){
		print "\ndirective: ";
	}
	print &munge_var($vars[$i]) , " ";
}