I hope you don't really write something like this

print $box_1;

print $box_2;
...
[download]

and instead have code similar to this:

print @box;
#or
print join("\n",@box);
[download]