I want to be able to cuddle opening braces and have the indent level

only increase by one shift-width.

By setting "let g:PerlCuddleIndent=1" you can allow this behavior

eg ("|" represents the cursor):

$foo = [{
    |
}]

indent/perl.vim

@@ -19,6 +19,13 @@
 " (The following probably needs modifying the perl syntax file)
 " - qw() lists
 " - Heredocs with terminators that don't match \I\i*
+"
+" If multiple opening braces are on the same line, then
+" normal behavior is to indent over one shift width per 
+" opening brace.  
+"
+" If you want to collapse the indents for cuddled braces then:
+" let g:PerlCuddleIndent = 1
 
 " Only load this indent file when no other was loaded.
 if exists("b:did_indent")
@@ -139,7 +146,12 @@ function! GetPerlIndent()
                     let ind = ind - &sw
                 endif
             endif
-            let bracepos = match(line, braceclass, bracepos + 1)
+
+            if exists('g:PerlCuddleIndent') && g:PerlCuddleIndent
+                let bracepos = -1
+            else
+                let bracepos = match(line, braceclass, bracepos + 1)
+            endif
         endwhile
         let bracepos = matchend(cline, '^\s*[])}]')
         if bracepos != -1