The following violates many coding principals that I normally hold true to, but it was actually cool to code using the string variables as a stack.
#!/usr/bin/perl # print hostlets # # 192.168.$i.0 $titan = ""; for ($i = 0; $i < 11; $i++) { $j = 0; $l = 0; $m = 0; $n = 0; $monster = ""; $groupzilla = ""; while ($j < 256) { $monster .= " hostlet_" . $i . "_" . $l; print "hostlet_" . $i . "_" . $l . " "; for ($k = 0; $k < 10 && $j < 256; $k++) { print "(192.168.$i.$j,,) "; $j++; } print "\n"; $l++; if (($l % 5 == 0) || $j >= 255) { $groupzilla .= " monster_" . $i . "_" . $m; print "monster_" . $i . "_" . $m . $monster . "\n"; $monster = ""; $m++; } } $titan .= " groupzilla_" . $i; print "groupzilla_" . $i . $groupzilla . "\n"; } print "titan" . $titan . "\n";