From 991b7cfdfb55e057db5fc6fb5af922e739b50670 Mon Sep 17 00:00:00 2001
From: LoneWolfiNTj <Hatley.Software@gmail.com>
Date: Fri, 23 Dec 2022 12:14:47 -0800
Subject: Made minor tweak to ch-1.pl

---
 challenge-196/LoneWolfiNTj/perl/ch-1.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/challenge-196/LoneWolfiNTj/perl/ch-1.pl b/challenge-196/LoneWolfiNTj/perl/ch-1.pl
index 69d6cf3b15..6e9bb594b9 100755
--- a/challenge-196/LoneWolfiNTj/perl/ch-1.pl
+++ b/challenge-196/LoneWolfiNTj/perl/ch-1.pl
@@ -57,9 +57,10 @@ for (@arrays)
 {
    my @array = @{$_};
    my @p132s = p132(@array);
+   my $p132s = scalar @p132s;
    $"=', ';
    say '';
-   say "Input array: (@{$_})";
-   say "${\scalar(@p132s)} subsequences exhibit pattern 132";
+   say "Input array: (@array)";
+   say "$p132s subsequences exhibit pattern 132";
    say "(@{$_})" for @p132s;
 }
-- 
cgit