From 510e58ebc7ab3942148492adaf663984a838001f Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Sun, 29 Aug 2021 07:22:00 +0800
Subject: seperator

---
 challenge-127/cheok-yin-fung/perl/ch-1.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/challenge-127/cheok-yin-fung/perl/ch-1.pl b/challenge-127/cheok-yin-fung/perl/ch-1.pl
index 36fb6ab2df..8ef8e99ccb 100644
--- a/challenge-127/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-127/cheok-yin-fung/perl/ch-1.pl
@@ -18,11 +18,15 @@ while ($a[$i] ne 'x' && $i < scalar @a) {
     $i++;
 }
 
+$i++;
+
 while ($i < scalar @a) {
     push @a2, $a[$i];
     $i++;
 }
 
+say " first array: ", "@a1";
+say "second array: ", "@a2";
 say disjoint( [@a1], [@a2]);
 
 sub disjoint ($s1 , $s2) {
-- 
cgit