From cbecf4d341431aceec2468d6a810554c07aa600b Mon Sep 17 00:00:00 2001
From: Bob Lied <boblied+github@gmail.com>
Date: Thu, 23 Oct 2025 10:01:03 -0500
Subject: Week 344 add blog reference

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

diff --git a/challenge-344/bob-lied/README.md b/challenge-344/bob-lied/README.md
index 090fa8d1ef..e2bb4bd5f2 100644
--- a/challenge-344/bob-lied/README.md
+++ b/challenge-344/bob-lied/README.md
@@ -2,4 +2,4 @@
 
 ## [PWC](https://perlweeklychallenge.org/blog/perl-weekly-challenge-344/)
 ## [GitHub](https://github.com/boblied/perlweeklychallenge-club/tree/master/challenge-344/bob-lied)
-[Blog](https://dev.to/boblied/)
+[Blog](https://dev.to/boblied/pwc-344-task-2-pick-up-the-pieces-3391)
diff --git a/challenge-344/bob-lied/blog.txt b/challenge-344/bob-lied/blog.txt
new file mode 100644
index 0000000000..59171e38e3
--- /dev/null
+++ b/challenge-344/bob-lied/blog.txt
@@ -0,0 +1 @@
+https://dev.to/boblied/pwc-344-task-2-pick-up-the-pieces-3391
diff --git a/challenge-344/bob-lied/perl/ch-2.pl b/challenge-344/bob-lied/perl/ch-2.pl
index d01505213a..80c4e73b84 100644
--- a/challenge-344/bob-lied/perl/ch-2.pl
+++ b/challenge-344/bob-lied/perl/ch-2.pl
@@ -83,11 +83,11 @@ sub canMake($source, $target)
     return false;
 }
 
-sub isPrefix($s, $t)
+sub isPrefix($p, $t)
 {
-    return false if @$s > @$t;
+    return false if @$p > @$t;
     my $match = true;
-    for my ($i, $n) ( indexed $s->@* )
+    for my ($i, $n) ( indexed $p->@* )
     {
         $match &&= ($n == $t->[$i]);
     }
-- 
cgit