From 0a9a6f09b6fe0a39b3a6b56314f50836da4ba9f1 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Fri, 18 Oct 2019 19:36:24 +0100
Subject: - Added solutions by Izifresh.

---
 challenge-030/izifresh/Perl 5/christmas | 27 ---------------------------
 challenge-030/izifresh/Perl 5/numbers   | 20 --------------------
 challenge-030/izifresh/perl5/ch-1.pl    | 27 +++++++++++++++++++++++++++
 challenge-030/izifresh/perl5/ch-2.pl    | 20 ++++++++++++++++++++
 members.json                            |  1 +
 5 files changed, 48 insertions(+), 47 deletions(-)
 delete mode 100644 challenge-030/izifresh/Perl 5/christmas
 delete mode 100644 challenge-030/izifresh/Perl 5/numbers
 create mode 100644 challenge-030/izifresh/perl5/ch-1.pl
 create mode 100644 challenge-030/izifresh/perl5/ch-2.pl

diff --git a/challenge-030/izifresh/Perl 5/christmas b/challenge-030/izifresh/Perl 5/christmas
deleted file mode 100644
index 4e6650f021..0000000000
--- a/challenge-030/izifresh/Perl 5/christmas	
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-package Christmas; 
-
-use strict; 
-use warnings;
-use v5.10;
-
- my $year = 2019;
- my $i = 3;
- my $x = 2;
- my @day = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
-  for ($year .. 2099 ) {
-    print ( "25 December of $year - $day[$x] \n");
-    $year++;
-     if ($i == 4) {
-      $i = 1;
-      $x += 2;
-}
-     else { 
-      $x += 1;
-      $i++;
-}
-  if ($x == 7) { $x = 0; }
-  if ($x == 8) { $x = 1; }
-}
- print ("25 December of 2100 - $day[$x] \n"); 
-END
\ No newline at end of file
diff --git a/challenge-030/izifresh/Perl 5/numbers b/challenge-030/izifresh/Perl 5/numbers
deleted file mode 100644
index 9c737c11b7..0000000000
--- a/challenge-030/izifresh/Perl 5/numbers	
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env perl
-package Numbers; 
-
-use strict; 
-use warnings;
-use v5.10;
- for my $i (0..10) {
-   for my $j (0..10) {
-     for my $k (0..10) { 
-       if (($i+$j+$k) == 12) {
-         if ( $i % 2 == 0 or $j % 2 == 0 or $k % 2 == 0 ) {
-           my @m = ($i,$j,$k);
-           @m = sort { $a <=> $b } @m;    
-           print ("@m\n");
-}
-}
-}
-}
-}
-END 
\ No newline at end of file
diff --git a/challenge-030/izifresh/perl5/ch-1.pl b/challenge-030/izifresh/perl5/ch-1.pl
new file mode 100644
index 0000000000..4e6650f021
--- /dev/null
+++ b/challenge-030/izifresh/perl5/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+package Christmas; 
+
+use strict; 
+use warnings;
+use v5.10;
+
+ my $year = 2019;
+ my $i = 3;
+ my $x = 2;
+ my @day = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
+  for ($year .. 2099 ) {
+    print ( "25 December of $year - $day[$x] \n");
+    $year++;
+     if ($i == 4) {
+      $i = 1;
+      $x += 2;
+}
+     else { 
+      $x += 1;
+      $i++;
+}
+  if ($x == 7) { $x = 0; }
+  if ($x == 8) { $x = 1; }
+}
+ print ("25 December of 2100 - $day[$x] \n"); 
+END
\ No newline at end of file
diff --git a/challenge-030/izifresh/perl5/ch-2.pl b/challenge-030/izifresh/perl5/ch-2.pl
new file mode 100644
index 0000000000..9c737c11b7
--- /dev/null
+++ b/challenge-030/izifresh/perl5/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+package Numbers; 
+
+use strict; 
+use warnings;
+use v5.10;
+ for my $i (0..10) {
+   for my $j (0..10) {
+     for my $k (0..10) { 
+       if (($i+$j+$k) == 12) {
+         if ( $i % 2 == 0 or $j % 2 == 0 or $k % 2 == 0 ) {
+           my @m = ($i,$j,$k);
+           @m = sort { $a <=> $b } @m;    
+           print ("@m\n");
+}
+}
+}
+}
+}
+END 
\ No newline at end of file
diff --git a/members.json b/members.json
index 2b6cbbc02d..6d1110bf99 100644
--- a/members.json
+++ b/members.json
@@ -40,6 +40,7 @@
     "guillermo-ramos"       : "Guillermo Ramos",
     "gustavo-chaves"        : "Gustavo Chaves",
     "hauke-d"               : "Hauke Dampfling",
+    "izifresh"              : "Izifresh",
     "jacques-guinnebault"   : "Jacques Guinnebault",
     "jaldhar-h-vyas"        : "Jaldhar H. Vyas",
     "james-smith"           : "Dr James A. Smith",
-- 
cgit