Fix the code according to the blog post

1 files changed, 4 insertions, 4 deletions

diff --git a/challenge-048/e-choroba/perl/ch-1a.pl b/challenge-048/e-choroba/perl/ch-1a.pl
index 59edc5fed9..71802c3fd6 100755
--- a/challenge-048/e-choroba/perl/ch-1a.pl
+++ b/challenge-048/e-choroba/perl/ch-1a.pl
@@ -5,17 +5,17 @@ use feature qw{ say };
 
 my @people = (1) x 50;
 my $sword = 0;
-my $next = sub {
+sub following {
     do { $sword = (1 + $sword) % @people } until $people[$sword];
-};
+}
 while (1 < (my $living = grep $_, @people)) {
     # print 1 + $sword, ' kills ';
-    $next->();
+    following();
     # print 1 + $sword, $living == 2
     #     ? ' and the survivor is '
     #     : ' and passes the sword to ';
     $people[$sword] = 0;
-    $next->();
+    following();
     # say 1 + $sword;
 }
 say 1 + $sword;