Here’s what I think of your “modes”:

(defun perl-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun cperl-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun text-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun html-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun sgml-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun sh-mode (&optional foo) (interactive "p") (fundamental-mode))
(defun java-mode (&optional foo) (interactive "p") (fundamental-mode))
(global-set-key (kbd "TAB") 'self-insert-command)
(setq-default inhibit-eol-conversion t)
(setq default-tab-width 4)
(put 'narrow-to-region 'disabled nil)