my @empty_square = qw(+----+
                      |....|
                      |....|
                      |....|
                      +----+					
                     );

##</code><code>##

foreach my $boxLine ( @empty_square) {


##</code><code>##

foreach my $line ( @empty_square) {
    my $boxLine = $line;