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