# current output directive: v0 v1 v2 v3 v4 v5 # desired output directive: v0 v1 v2 v3 directive: v4 v5 #### print "directive: "; for my $var (@vars) { print munge_var($var), " "; } print "\n"; #### my $v_count = 0; print "directive: "; for my $var (@vars) { print &munge_vars($var), " "; $v_count++; if($v_count == $LIMIT) { print "\ndirective: "; $v_count = 0; } } print "\n"; #### my $v_count = 0; for my $var (@vars) { if(($v_count % $LIMIT) == 0) { print "\ndirective: "; } print &munge_var($var), " "; } print "\n";