diff --git a/mode/perl.py b/mode/perl.py
index efe91fa..e27d537 100644
--- a/mode/perl.py
+++ b/mode/perl.py
@@ -649,7 +649,7 @@ class PerlContext(context.Context):
     sub_match = And(Optional(Name('spaces')), 
                     Match('perl.keyword', 'sub'),
                     Name('spaces'),
-                    Name('sub'))
+                    Name('perl.sub'))
     def _regen_stack(self, y):
         if y > 0 and self.namelines[y - 1][1]:
             return list(self.namelines[y - 1][1])