M-X cperl-mode
C-SPC
M->
M-C-\

##</code><code>##

my @headings = (
		{
		 key => 'k', name => 'Kanji', class => 'kanji'},
		{
		 key => 'skip', name => 'SKIP', class => 'skip-code'},
		{
		 key => 'co', name => 'Suggestion', class => 'skip-code'},
		{
		 key => 'disc', name => 'Discussion'},
	       );

##</code><code>##

GNU Emacs 27.1 (build 1, i386-portbld-freebsd12.1, GTK+ Version 3.24.24, cairo version 1.16.0)
Copyright (C) 2020 Free Software Foundation, Inc.