From 3f39aaa5ac24f90184ed88da6b08807db9a9411c Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Mon, 11 Apr 2022 15:10:25 -0400
Subject: 	modified:   challenge-160/mattneleigh/perl/ch-1.pl

---
 challenge-160/mattneleigh/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-160/mattneleigh/perl/ch-1.pl b/challenge-160/mattneleigh/perl/ch-1.pl
index d06b04a58b..6e7afa1ec2 100755
--- a/challenge-160/mattneleigh/perl/ch-1.pl
+++ b/challenge-160/mattneleigh/perl/ch-1.pl
@@ -42,7 +42,7 @@ foreach $number (@numbers){
             $table[$number][0] .
             " is " .
             $table[$table[$number][1]][0] .
-            ", ";
+            ($table[$number][1] == 10 ? "." : ", ");
         $number = $table[$number][1];
     }
     
-- 
cgit