　とりあえずifとforeachだけ付け加えてみた。
;; === snippet ===
;; snippet.el で、addrev に定型文を追加する
;; 設定方法の例
;; (add-hook 'sgml-mode-hook
;;            '(lambda ()
;; 			  (setq-default abbrev-mode t) ;; abbrev-mode をon
;; 			  (snippet-with-abbrev-table '任意のmode-abbrev-table 
;; 	  ("略称の文字列1" .  "展開する文字列1")
;; 	  ))
;; )
;; 参考:
;; emacs + snippet.el の定型文補完（スニペット）で楽々HTML編集：Goodpic
;; http://www.goodpic.com/mt/archives2/2007/02/emacs_snippetel_html.html
;; unknownplace.org - Tags: emacs
;; http://unknownplace.org/memo/tag/emacs
;; 展開文字列の設定
;; $${}  ;;  タブキーで移動可能な入力エリア
;; $.    ;;  タブ入力を終了した後の、カーソルの位置
;; $> ;;  その行をインデントする
(require 'snippet)
;; cperl mode
(add-hook 'cperl-mode-hook
'(lambda ()
(setq-default abbrev-mode t) ;; abbrev-mode をon
(snippet-with-abbrev-table 'cperl-mode-abbrev-table
("if"  .  "if ($${arg}) {\n$>$.\n}")
("foreach" . "foreach ($${arg}) {\n$>$.\n}")
))
)