Select Code to Download

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

foreach my $boxLine ( @empty_square) {

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