perltidy -st -cab=1 -mft=1 -lp -vt=1 -boc PM_503139_02.pl

##</code><code>##

my @list = ( '1',
             '2',
             '3',
);

my %hash = ( a => '1',
             b => '2',
             c => '3',
);

##</code><code>##

-boc     --break-at-old-comma-breakpoints
-mft=n   --maximum-fields-per-table=n
-cab=n   --comma-arrow-breakpoints=n
         
-lp      --line-up-parentheses
-pt=n    --paren-tightness=n
-vt=n    --vertical-tightness=n
-vtc=n   --vertical-tightness-closing=n