Emacs, Perl add deref

gistfile1.txt

(defun ps/edit-deref-type (sigil)
  "Enclose the text from point and backwards to the preceeding $
  in SIGIL{TEXT}."
  (let ((end (point)))
    (when (search-backward "$" nil t)
      (insert sigil)
      (insert "{")
      (goto-char (+ 2 end))
      (insert "}")
      )
    ))

(defun ps/edit-deref-array ()
  "Enclose the text from point and backwards to the preceeding $
  in a @{YOUR-TEXT-HERE}."
  (interactive)
  (ps/edit-deref-type "@"))

(defun ps/edit-deref-hash ()
  "Enclose the text from point and backwards to the preceeding $
  in a %{YOUR-TEXT-HERE}."
  (interactive)
  (ps/edit-deref-type "%"))

(global-set-key (kbd "C-o e d") 'ps/edit-deref-array)