Add explicit "# key" directive to legacy snippet collection before deprecating filenames-as-triggers

snippets/perl-mode/eval

@@ -1,4 +1,5 @@
 #name : eval { ... } if ($@) { ... }
+# key: eval
 # --
 eval {
     ${1:# do something risky...}

snippets/perl-mode/for

@@ -1,4 +1,5 @@
 #name : for (...) { ... }
+# key: for
 # --
 for (my \$${1:var} = 0; \$$1 < ${2:expression}; \$$1++) {
     ${3:# body...}

snippets/perl-mode/fore

@@ -1,4 +1,5 @@
 #name : foreach ... { ... }
+# key: fore
 # --
 foreach my \$${1:x} (@${2:array}) {
     ${3:# body...}

snippets/perl-mode/if

@@ -1,4 +1,5 @@
 #name : if (...) { ... }
+# key: perl-modeif
 # --
 if ($1) {
     $0

snippets/perl-mode/ife

@@ -1,4 +1,5 @@
 #name : if (...) { ... } else { ... }
+# key: perl-modeife
 # --
 if ($1) {
     $2

snippets/perl-mode/ifee

@@ -1,4 +1,5 @@
 #name : if, elsif, else ...
+# key: perl-modeifee
 # --
 if ($1) {
 	${2:# body...}

snippets/perl-mode/sub

@@ -1,4 +1,5 @@
 #name : sub ... { ... }
+# key: sub
 # --
 sub ${1:function_name} {
     $0

snippets/perl-mode/unless

@@ -1,4 +1,5 @@
 #name : unless (...) { ... }
+# key: unless
 # --
 unless ($1) {
     $0

snippets/perl-mode/while

@@ -1,4 +1,5 @@
 #name : while (...) { ... }
+# key: while
 # --
 while ($1) {
     $0

snippets/perl-mode/xfore

@@ -1,3 +1,4 @@
 #name : ... foreach ...
+# key: xfore
 # --
 ${1:expression} foreach @${2:array};

snippets/perl-mode/xif

@@ -1,3 +1,4 @@
 #name : ... if ...
+# key: perl-modexif
 # --
 ${1:expression} if ${2:condition}

snippets/perl-mode/xunless

@@ -1,3 +1,4 @@
 #name : ... unless ...
+# key: xunless
 # --
 ${1:expression} unless ${2:condition}

snippets/perl-mode/xwhile

@@ -1,3 +1,4 @@
 #name : ... while ...
+# key: xwhile
 # --
 ${1:expression} while ${2:condition};