(eval-after-load 'cperl-mode
  '(progn

;;-- @LanX - not related to your question, but perhaps useful?
;;     (define-key cperl-mode-map (kbd "RET")   'reindent-then-newline-and-indent)
;;     (define-key cperl-mode-map (kbd "C-M-h") 'backward-kill-word)
;;     (define-key 'help-command "P" 'cperl-perldoc-at-point)


     ;; experiment: ;; (setq cperl-dark-background "gray14")

     (set-face-attribute 'cperl-array-face nil
                         :foreground  "#ffff88"              ;; "yellow3"  "#ffff88"
                         :background  'unspecified
                         :weight      'normal
                         :slant       'normal
                         )
     (set-face-attribute 'cperl-hash-face nil
                         :foreground  "#e08020"              ;; "DarkOrange3"  "#e080202
                         :background  'unspecified
                         :weight      'normal
                         :slant       'normal
                         )
     ))