Help for this page
print ~^Q[~^Q . join(~^Q][~^Q, @array) .~^T]\n~^T;
print '[' . join('][', @array) ."]\n";