(defun perl-dbg ()
  "Insert a debugging print statement"
  (interactive)
  (insert "use Data::Dumper qw( Dumper );\nwarn Dumper [ ];\n")
  (search-backward "[ "))

(global-set-key "\C-c\C-p" 'perl-dbg)

##</code><code>##

use Data::Dumper qw( Dumper );
warn Dumper [ ];

##</code><code>##

(defun perl-dbg (name)
  "Insert a debugging print statement"
  (interactive "svariable to dump: ")
  (insert "use Data::Dumper qw( Dumper );\nwarn Dumper ")
  (insert name)
  (insert ";\n"))