while ($i < $run) { $i++; print qq{+}; my $j = 0; while ($j <= $group) { $j++; print ""; print ""; print ''; } print "



"; }