print "\nConcatenation and join (without parens)- NOT OK\n";
$cols = '[' . join('],[', @array . ']');

##</code><code>##

$cols = join ',', map { "[$_]" } @array;