From 6a9cfc54dddd732c9cb73ec422e215aceea1d303 Mon Sep 17 00:00:00 2001
From: e78783 <fungcheokyin@gmail.com>
Date: Sun, 29 May 2022 09:59:54 +0800
Subject: Week 166

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

diff --git a/challenge-166/cheok-yin-fung/perl/ch-2.pl b/challenge-166/cheok-yin-fung/perl/ch-2.pl
index 6e724075b3..7bbdde7140 100644
--- a/challenge-166/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-166/cheok-yin-fung/perl/ch-2.pl
@@ -6,10 +6,10 @@ use warnings;
 use Cwd;
 use List::Util qw/uniqstr any/;
 
-kd(@ARGV) if defined($ARGV[1]);
-
 my $TEMP_CWD = getcwd;
 
+kd(@ARGV) if defined($ARGV[1]);
+
 
 
 sub kd {
-- 
cgit