Remove unnecessary variable

1 files changed, 1 insertions, 5 deletions

diff --git a/challenge-018/lubos-kolouch/perl5/ch-1.pl b/challenge-018/lubos-kolouch/perl5/ch-1.pl
index fef4d9155e..7ba1dc53d2 100644
--- a/challenge-018/lubos-kolouch/perl5/ch-1.pl
+++ b/challenge-018/lubos-kolouch/perl5/ch-1.pl
@@ -27,7 +27,6 @@ use feature qw{ say };
 use Data::Dumper;
 
 my %all_strings;
-my $max_count = 0;
 
 # ignore substrings 
 my $seen_first;
@@ -55,10 +54,7 @@ sub insert_to_all_strings {
             my $current_count = $all_strings{$sub_string} // 0;
             $current_count++;
 
-            # We have seen the substring one more time
-            $max_count = $current_count if $current_count > $max_count;
-
-            # Let us remember it
+            # Let us store the count
             $all_strings{ length($sub_string) }{$sub_string}++;
         }