for my$scalar(1..10){print"$scalar"."txt";}

##</code><code>##

for my $scalar (1..10) {
   print"$scalar"."txt";
}

##</code><code>##

(defun my-indent-block ()
  "reindent surroundig expression"
  (interactive)
  (save-excursion
    (backward-up-list)
    (cperl-indent-exp)
    )
  )



(defadvice cperl-electric-semi
  (after my-electric-indent-context)
  "indent whole context surrounding block/context"
  (my-indent-block)
  )

(add-hook
 'cperl-mode-hook
 (lambda ()
   (local-set-key (kbd "M-C-q") 'my-indent-block )
   )
 )


##</code><code>##

my $a           =  {
         a      => 1,
         b      => {
              c => 3,
             }
        };