diff --git a/completions/helpers/perl b/completions/helpers/perl
index c9f40b3b..f847dc74 100644
--- a/completions/helpers/perl
+++ b/completions/helpers/perl
@@ -9,11 +9,11 @@ my %seen;
 sub print_modules_real {
     my ($base, $dir, $word) = @_;
 
-    # return immediatly if potential completion doesn't match current word
-    # a double comparaison is used to avoid dealing with string lengths
+    # return immediately if potential completion doesn't match current word
+    # a double comparison is used to avoid dealing with string lengths
     # (the shorter being the pattern to be used as the regexp)
     # word 'Fi', base 'File' -> match 'File' against 'Fi'
-    # word 'File::Sp', base 'File' -> match 'File::Sp' againt 'File'
+    # word 'File::Sp', base 'File' -> match 'File::Sp' against 'File'
     return if
         $base               &&
         $word               &&