--- a/.emacs-my	Fri Jul 06 21:38:16 2012 +0300
+++ b/.emacs-my	Fri Jul 06 21:40:37 2012 +0300
@@ -2035,6 +2035,9 @@
     (make-local-variable 'Man-switches)
     (setq Man-switches nil)))
 
+;; Expands for keywords such as foreach, while, etc...
+(setq cperl-electric-keywords t)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SML, Standard ML")