Initial Examples 

• Added a line when creating large data structures

my @IN_OPTS = (
+

• Sets comments off by 4 spaces

-    'p=s',           # p = path
-    'assigned-to>a', # for 'summary', 'list'
+    'p=s',              # p = path
+    'assigned-to>a',    # for 'summary', 'list'

• Adds spaces around lists

-    my ($in_opts, $booleans) = @_;
+    my ( $in_opts, $booleans ) = @_;

• Adjusts indentation of statement modifiers

Getopt::Mixed::abortMsg('specify a command')
-       if @ARGV == 0;
+      if @ARGV == 0;

• Puts spaces inside hashrefs

-    push @{$args->{$opt}}, $val;
+    push @{ $args->{$opt} }, $val;

• Wraps at 79 chars

-        my ($name, $path, $ext) = fileparse( $filename, '.jpg', '.avi', '.thm', '.mov', '.JPG', '.AVI', '.MOV' );
+        my ( $name, $path, $ext ) = fileparse(
+            $filename, '.jpg', '.avi', '.thm',
+            '.mov',    '.JPG', '.AVI', '.MOV'
+        );

• Call parameters get a space of padding...

-        blah2($x, $y);
+        blah2( $x, $y );

• ...except when there is only one

-        blah1( $x );
+        blah1($x);