print $box_1; print $box_2; ... #### print @box; #or print join("\n",@box);