From 4efb4284df1013fe4420f77e519b9572516576b3 Mon Sep 17 00:00:00 2001
From: Bob Lied <boblied+github@gmail.com>
Date: Sat, 17 May 2025 08:14:06 -0500
Subject: Week 321 final answer with blog reference

---
 challenge-321/bob-lied/blog.txt     | 1 +
 challenge-321/bob-lied/perl/ch-1.pl | 2 +-
 challenge-321/bob-lied/perl/ch-2.pl | 6 +++---
 3 files changed, 5 insertions(+), 4 deletions(-)
 create mode 100644 challenge-321/bob-lied/blog.txt

diff --git a/challenge-321/bob-lied/blog.txt b/challenge-321/bob-lied/blog.txt
new file mode 100644
index 0000000000..4d8af974f5
--- /dev/null
+++ b/challenge-321/bob-lied/blog.txt
@@ -0,0 +1 @@
+https://dev.to/boblied/pwc-321-every-average-tells-a-story-dont-it-bj0
diff --git a/challenge-321/bob-lied/perl/ch-1.pl b/challenge-321/bob-lied/perl/ch-1.pl
index 2b74da51e9..a36ddd29ae 100644
--- a/challenge-321/bob-lied/perl/ch-1.pl
+++ b/challenge-321/bob-lied/perl/ch-1.pl
@@ -66,7 +66,7 @@ sub distAvg(@ints)
 
         $average{ (shift @ints)+(pop @ints) } = true;
     }
-    return scalar keys %average;
+    return scalar %average;
 }
 
 sub runTest
diff --git a/challenge-321/bob-lied/perl/ch-2.pl b/challenge-321/bob-lied/perl/ch-2.pl
index b282ad6636..ad5b21c294 100644
--- a/challenge-321/bob-lied/perl/ch-2.pl
+++ b/challenge-321/bob-lied/perl/ch-2.pl
@@ -70,15 +70,15 @@ sub bsp($str)
 sub bspSTR($str)
 {
     my $out = '';
-    for ( split(//, $str) )
+    while ( (my $c = substr($str, 0, 1, '')) ne '' )
     {
-        if ( $_ eq '#' )
+        if ( $c eq '#' )
         {
             substr($out, -1, 1, '');
         }
         else
         {
-            $out .= $_;
+            $out .= $c;
         }
     }
     return $out;
-- 
cgit