$maincanvas = $main->Scrolled(qw/Canvas -bg white -height 600 -width 1200 -borderwidth 0 -scrollbars se -scrollregion/ => '0', '0', $scrollwidth, $scrollheight) ->pack(@pl), DisplayGroup(); 

Instead of putting your code inside of <pre>...</pre>tags try putting it in <code> </code> or <c> </c> tags. Then your square brackets for the anonymous array will show up instead of making a broken link.