update elements and fix some bugs

lib/src/prism/tests/languages/perl/keyword_feature.test

Index: lib/src/prism/tests/languages/perl/keyword_feature.test
diff --git a/lib/src/prism/tests/languages/perl/keyword_feature.test b/lib/src/prism/tests/languages/perl/keyword_feature.test
new file mode 100644
index 0000000000000000000000000000000000000000..82bab2bc153be1d0e3bd6f62d15a168dd1cf6986
--- /dev/null
+++ b/lib/src/prism/tests/languages/perl/keyword_feature.test
@@ -0,0 +1,29 @@
+any break continue
+default delete die
+do else elsif eval
+for foreach given
+goto if last local
+my next our package
+print redo require
+say state sub
+switch undef unless
+until use when while
+
+----------------------------------------------------
+
+[
+	["keyword", "any"], ["keyword", "break"], ["keyword", "continue"],
+	["keyword", "default"], ["keyword", "delete"], ["keyword", "die"],
+	["keyword", "do"], ["keyword", "else"], ["keyword", "elsif"], ["keyword", "eval"],
+	["keyword", "for"], ["keyword", "foreach"], ["keyword", "given"],
+	["keyword", "goto"], ["keyword", "if"], ["keyword", "last"], ["keyword", "local"],
+	["keyword", "my"], ["keyword", "next"], ["keyword", "our"], ["keyword", "package"],
+	["keyword", "print"], ["keyword", "redo"], ["keyword", "require"],
+	["keyword", "say"], ["keyword", "state"], ["keyword", "sub"],
+	["keyword", "switch"], ["keyword", "undef"], ["keyword", "unless"],
+	["keyword", "until"], ["keyword", "use"], ["keyword", "when"], ["keyword", "while"]
+]
+
+----------------------------------------------------
+
+Checks for all keywords.