Dunno, it works for me on perl 5.6.0, 5.6.1, and 5.8.0. Which version are you using?

print join("\n", @empty_square), "\n";

+----+
|2   |
|3   |
|4   |
+----+
[download]