- Added solutions by E. Choroba.

14 files changed, 1044 insertions, 1029 deletions

diff --git a/challenge-074/e-choroba/perl5/ch-1.pl b/challenge-074/e-choroba/perl/ch-1.pl
index 6506429d1a..6506429d1a 100755
--- a/challenge-074/e-choroba/perl5/ch-1.pl
+++ b/challenge-074/e-choroba/perl/ch-1.pl
diff --git a/challenge-074/e-choroba/perl5/ch-2.pl b/challenge-074/e-choroba/perl/ch-2.pl
index 05055a1061..05055a1061 100755
--- a/challenge-074/e-choroba/perl5/ch-2.pl
+++ b/challenge-074/e-choroba/perl/ch-2.pl
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 5ddb7abc83..7f41deef1f 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,19 +1,6 @@
 {
-   "tooltip" : {
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "followPointer" : 1,
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
-   },
-   "chart" : {
-      "type" : "column"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 13] Last updated at 2020-08-18 12:00:55 GMT"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
+   "legend" : {
+      "enabled" : 0
    },
    "drilldown" : {
       "series" : [
@@ -28,8 +15,17 @@
             "name" : "Dave Jacoby"
          },
          {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "E. Choroba",
+            "name" : "E. Choroba"
+         },
+         {
             "id" : "Jaldhar H. Vyas",
-            "name" : "Jaldhar H. Vyas",
             "data" : [
                [
                   "Perl",
@@ -43,9 +39,11 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "name" : "Jaldhar H. Vyas"
          },
          {
+            "id" : "Javier Luque",
             "data" : [
                [
                   "Perl",
@@ -60,10 +58,10 @@
                   1
                ]
             ],
-            "name" : "Javier Luque",
-            "id" : "Javier Luque"
+            "name" : "Javier Luque"
          },
          {
+            "name" : "Luca Ferrari",
             "data" : [
                [
                   "Raku",
@@ -74,20 +72,20 @@
                   2
                ]
             ],
-            "id" : "Luca Ferrari",
-            "name" : "Luca Ferrari"
+            "id" : "Luca Ferrari"
          },
          {
-            "id" : "Mark Anderson",
             "name" : "Mark Anderson",
             "data" : [
                [
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "id" : "Mark Anderson"
          },
          {
+            "id" : "Mohammad S Anwar",
             "data" : [
                [
                   "Perl",
@@ -98,18 +96,17 @@
                   2
                ]
             ],
-            "id" : "Mohammad S Anwar",
             "name" : "Mohammad S Anwar"
          },
          {
-            "id" : "Niels van Dijke",
-            "name" : "Niels van Dijke",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "id" : "Niels van Dijke",
+            "name" : "Niels van Dijke"
          },
          {
             "data" : [
@@ -118,10 +115,11 @@
                   1
                ]
             ],
-            "name" : "Pavel Kuptsov",
-            "id" : "Pavel Kuptsov"
+            "id" : "Pavel Kuptsov",
+            "name" : "Pavel Kuptsov"
          },
          {
+            "name" : "Roger Bell_West",
             "data" : [
                [
                   "Perl",
@@ -132,42 +130,39 @@
                   2
                ]
             ],
-            "id" : "Roger Bell_West",
-            "name" : "Roger Bell_West"
+            "id" : "Roger Bell_West"
          },
          {
+            "name" : "Shawn Wagner",
             "data" : [
                [
                   "Perl",
                   2
                ]
             ],
-            "name" : "Shawn Wagner",
             "id" : "Shawn Wagner"
          },
          {
+            "name" : "Simon Proctor",
             "data" : [
                [
                   "Raku",
                   2
                ]
             ],
-            "id" : "Simon Proctor",
-            "name" : "Simon Proctor"
+            "id" : "Simon Proctor"
          },
          {
-            "name" : "Steven Wilson",
             "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl",
                   2
                ]
-            ]
+            ],
+            "name" : "Steven Wilson"
          },
          {
-            "name" : "Ulrich Rieke",
-            "id" : "Ulrich Rieke",
             "data" : [
                [
                   "Perl",
@@ -177,12 +172,16 @@
                   "Raku",
                   2
                ]
-            ]
+            ],
+            "id" : "Ulrich Rieke",
+            "name" : "Ulrich Rieke"
          }
       ]
    },
-   "legend" : {
-      "enabled" : 0
+   "tooltip" : {
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : 1,
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
    },
    "xAxis" : {
       "type" : "category"
@@ -196,25 +195,42 @@
          "borderWidth" : 0
       }
    },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 074"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 14] Last updated at 2020-08-18 18:08:26 GMT"
+   },
    "series" : [
       {
-         "name" : "Perl Weekly Challenge - 074",
-         "colorByPoint" : 1,
          "data" : [
             {
-               "name" : "Dave Jacoby",
+               "drilldown" : "Dave Jacoby",
                "y" : 2,
-               "drilldown" : "Dave Jacoby"
+               "name" : "Dave Jacoby"
             },
             {
+               "name" : "E. Choroba",
+               "y" : 2,
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "drilldown" : "Jaldhar H. Vyas",
                "y" : 5,
-               "name" : "Jaldhar H. Vyas",
-               "drilldown" : "Jaldhar H. Vyas"
+               "name" : "Jaldhar H. Vyas"
             },
             {
                "drilldown" : "Javier Luque",
-               "name" : "Javier Luque",
-               "y" : 5
+               "y" : 5,
+               "name" : "Javier Luque"
             },
             {
                "drilldown" : "Luca Ferrari",
@@ -222,9 +238,9 @@
                "y" : 4
             },
             {
-               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson",
                "y" : 2,
-               "name" : "Mark Anderson"
+               "drilldown" : "Mark Anderson"
             },
             {
                "y" : 4,
@@ -233,8 +249,8 @@
             },
             {
                "drilldown" : "Niels van Dijke",
-               "name" : "Niels van Dijke",
-               "y" : 2
+               "y" : 2,
+               "name" : "Niels van Dijke"
             },
             {
                "drilldown" : "Pavel Kuptsov",
@@ -257,19 +273,18 @@
                "name" : "Simon Proctor"
             },
             {
-               "name" : "Steven Wilson",
+               "drilldown" : "Steven Wilson",
                "y" : 2,
-               "drilldown" : "Steven Wilson"
+               "name" : "Steven Wilson"
             },
             {
-               "drilldown" : "Ulrich Rieke",
+               "name" : "Ulrich Rieke",
                "y" : 4,
-               "name" : "Ulrich Rieke"
+               "drilldown" : "Ulrich Rieke"
             }
-         ]
+         ],
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 074"
       }
-   ],
-   "title" : {
-      "text" : "Perl Weekly Challenge - 074"
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index c06190e594..f1b598babf 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,36 +1,24 @@
 {
-   "chart" : {
-      "type" : "column"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : null
-      },
-      "min" : 0
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2020-08-18 12:00:54 GMT"
-   },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
-      },
-      "type" : "category"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
    "title" : {
       "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
    },
+   "subtitle" : {
+      "text" : "Last updated at 2020-08-18 18:08:26 GMT"
+   },
    "series" : [
       {
+         "dataLabels" : {
+            "color" : "#FFFFFF",
+            "format" : "{point.y:.0f}",
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "align" : "right",
+            "rotation" : -90,
+            "y" : 10,
+            "enabled" : "true"
+         },
          "data" : [
             [
                "Blog",
@@ -38,26 +26,38 @@
             ],
             [
                "Perl",
-               3063
+               3065
             ],
             [
                "Raku",
                1997
             ]
          ],
-         "name" : "Contributions",
-         "dataLabels" : {
-            "align" : "right",
-            "color" : "#FFFFFF",
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "enabled" : "true",
-            "rotation" : -90,
-            "y" : 10,
-            "format" : "{point.y:.0f}"
-         }
+         "name" : "Contributions"
       }
-   ]
+   ],
+   "chart" : {
+      "type" : "column"
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      },
+      "type" : "category"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : null
+      },
+      "min" : 0
+   },
+   "legend" : {
+      "enabled" : "false"
+   }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 4f8f3f5712..0d911435dd 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,53 +1,41 @@
 {
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-08-18 12:00:55 GMT"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
    "chart" : {
       "type" : "column"
    },
-   "tooltip" : {
-      "headerFormat" : "<span style=\"font-size:11px\"></span>",
-      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
-      "followPointer" : "true"
-   },
    "series" : [
       {
+         "name" : "Perl Weekly Challenge Languages",
          "colorByPoint" : "true",
          "data" : [
             {
-               "y" : 142,
                "name" : "#001",
+               "y" : 142,
                "drilldown" : "001"
             },
             {
-               "drilldown" : "002",
                "name" : "#002",
-               "y" : 109
+               "y" : 109,
+               "drilldown" : "002"
             },
             {
-               "y" : 71,
+               "drilldown" : "003",
                "name" : "#003",
-               "drilldown" : "003"
+               "y" : 71
             },
             {
+               "drilldown" : "004",
                "y" : 91,
-               "name" : "#004",
-               "drilldown" : "004"
+               "name" : "#004"
             },
             {
+               "drilldown" : "005",
                "y" : 72,
-               "name" : "#005",
-               "drilldown" : "005"
+               "name" : "#005"
             },
             {
+               "drilldown" : "006",
                "y" : 52,
-               "name" : "#006",
-               "drilldown" : "006"
+               "name" : "#006"
             },
             {
                "y" : 59,
@@ -55,24 +43,24 @@
                "drilldown" : "007"
             },
             {
-               "drilldown" : "008",
+               "y" : 72,
                "name" : "#008",
-               "y" : 72
+               "drilldown" : "008"
             },
             {
-               "drilldown" : "009",
+               "name" : "#009",
                "y" : 68,
-               "name" : "#009"
+               "drilldown" : "009"
             },
             {
-               "name" : "#010",
                "y" : 60,
+               "name" : "#010",
                "drilldown" : "010"
             },
             {
-               "drilldown" : "011",
                "name" : "#011",
-               "y" : 79
+               "y" : 79,
+               "drilldown" : "011"
             },
             {
                "y" : 83,
@@ -85,14 +73,14 @@
                "drilldown" : "013"
             },
             {
-               "drilldown" : "014",
                "y" : 96,
-               "name" : "#014"
+               "name" : "#014",
+               "drilldown" : "014"
             },
             {
+               "drilldown" : "015",
                "y" : 93,
-               "name" : "#015",
-               "drilldown" : "015"
+               "name" : "#015"
             },
             {
                "drilldown" : "016",
@@ -100,14 +88,14 @@
                "name" : "#016"
             },
             {
-               "drilldown" : "017",
+               "name" : "#017",
                "y" : 79,
-               "name" : "#017"
+               "drilldown" : "017"
             },
             {
+               "drilldown" : "018",
                "y" : 76,
-               "name" : "#018",
-               "drilldown" : "018"
+               "name" : "#018"
             },
             {
                "y" : 97,
@@ -115,9 +103,9 @@
                "drilldown" : "019"
             },
             {
-               "drilldown" : "020",
+               "name" : "#020",
                "y" : 95,
-               "name" : "#020"
+               "drilldown" : "020"
             },
             {
                "name" : "#021",
@@ -130,18 +118,18 @@
                "y" : 63
             },
             {
-               "name" : "#023",
                "y" : 91,
+               "name" : "#023",
                "drilldown" : "023"
             },
             {
+               "drilldown" : "024",
                "name" : "#024",
-               "y" : 70,
-               "drilldown" : "024"
+               "y" : 70
             },
             {
-               "name" : "#025",
                "y" : 55,
+               "name" : "#025",
                "drilldown" : "025"
             },
             {
@@ -151,78 +139,78 @@
             },
             {
                "drilldown" : "027",
-               "name" : "#027",
-               "y" : 58
+               "y" : 58,
+               "name" : "#027"
             },
             {
+               "drilldown" : "028",
                "name" : "#028",
-               "y" : 78,
-               "drilldown" : "028"
+               "y" : 78
             },
             {
-               "drilldown" : "029",
+               "y" : 77,
                "name" : "#029",
-               "y" : 77
+               "drilldown" : "029"
             },
             {
-               "drilldown" : "030",
+               "name" : "#030",
                "y" : 115,
-               "name" : "#030"
+               "drilldown" : "030"
             },
             {
-               "drilldown" : "031",
+               "y" : 87,
                "name" : "#031",
-               "y" : 87
+               "drilldown" : "031"
             },
             {
+               "drilldown" : "032",
                "y" : 92,
-               "name" : "#032",
-               "drilldown" : "032"
+               "name" : "#032"
             },
             {
-               "drilldown" : "033",
+               "y" : 108,
                "name" : "#033",
-               "y" : 108
+               "drilldown" : "033"
             },
             {
-               "y" : 62,
                "name" : "#034",
+               "y" : 62,
                "drilldown" : "034"
             },
             {
-               "name" : "#035",
                "y" : 62,
+               "name" : "#035",
                "drilldown" : "035"
             },
             {
-               "drilldown" : "036",
                "y" : 66,
-               "name" : "#036"
+               "name" : "#036",
+               "drilldown" : "036"
             },
             {
-               "drilldown" : "037",
+               "name" : "#037",
                "y" : 65,
-               "name" : "#037"
+               "drilldown" : "037"
             },
             {
+               "drilldown" : "038",
                "y" : 65,
-               "name" : "#038",
-               "drilldown" : "038"
+               "name" : "#038"
             },
             {
-               "y" : 60,
+               "drilldown" : "039",
                "name" : "#039",
-               "drilldown" : "039"
+               "y" : 60
             },
             {
-               "y" : 71,
                "name" : "#040",
+               "y" : 71,
                "drilldown" : "040"
             },
             {
                "drilldown" : "041",
-               "name" : "#041",
-               "y" : 74
+               "y" : 74,
+               "name" : "#041"
             },
             {
                "drilldown" : "042",
@@ -230,39 +218,39 @@
                "name" : "#042"
             },
             {
+               "drilldown" : "043",
                "y" : 66,
-               "name" : "#043",
-               "drilldown" : "043"
+               "name" : "#043"
             },
             {
                "drilldown" : "044",
-               "y" : 82,
-               "name" : "#044"
+               "name" : "#044",
+               "y" : 82
             },
             {
-               "name" : "#045",
+               "drilldown" : "045",
                "y" : 94,
-               "drilldown" : "045"
+               "name" : "#045"
             },
             {
-               "drilldown" : "046",
                "name" : "#046",
-               "y" : 85
+               "y" : 85,
+               "drilldown" : "046"
             },
             {
-               "drilldown" : "047",
                "y" : 82,
-               "name" : "#047"
+               "name" : "#047",
+               "drilldown" : "047"
             },
             {
-               "name" : "#048",
+               "drilldown" : "048",
                "y" : 106,
-               "drilldown" : "048"
+               "name" : "#048"
             },
             {
-               "drilldown" : "049",
+               "y" : 85,
                "name" : "#049",
-               "y" : 85
+               "drilldown" : "049"
             },
             {
                "drilldown" : "050",
@@ -270,14 +258,14 @@
                "y" : 96
             },
             {
-               "y" : 87,
                "name" : "#051",
+               "y" : 87,
                "drilldown" : "051"
             },
             {
                "drilldown" : "052",
-               "y" : 89,
-               "name" : "#052"
+               "name" : "#052",
+               "y" : 89
             },
             {
                "drilldown" : "053",
@@ -295,29 +283,29 @@
                "drilldown" : "055"
             },
             {
-               "y" : 93,
                "name" : "#056",
+               "y" : 93,
                "drilldown" : "056"
             },
             {
+               "drilldown" : "057",
                "y" : 78,
-               "name" : "#057",
-               "drilldown" : "057"
+               "name" : "#057"
             },
             {
+               "drilldown" : "058",
                "name" : "#058",
-               "y" : 67,
-               "drilldown" : "058"
+               "y" : 67
             },
             {
                "drilldown" : "059",
-               "y" : 87,
-               "name" : "#059"
+               "name" : "#059",
+               "y" : 87
             },
             {
-               "y" : 83,
+               "drilldown" : "060",
                "name" : "#060",
-               "drilldown" : "060"
+               "y" : 83
             },
             {
                "name" : "#061",
@@ -325,24 +313,24 @@
                "drilldown" : "061"
             },
             {
-               "y" : 54,
                "name" : "#062",
+               "y" : 54,
                "drilldown" : "062"
             },
             {
+               "drilldown" : "063",
                "name" : "#063",
-               "y" : 87,
-               "drilldown" : "063"
+               "y" : 87
             },
             {
-               "name" : "#064",
+               "drilldown" : "064",
                "y" : 76,
-               "drilldown" : "064"
+               "name" : "#064"
             },
             {
+               "drilldown" : "065",
                "name" : "#065",
-               "y" : 71,
-               "drilldown" : "065"
+               "y" : 71
             },
             {
                "drilldown" : "066",
@@ -350,69 +338,58 @@
                "y" : 82
             },
             {
-               "y" : 88,
+               "drilldown" : "067",
                "name" : "#067",
-               "drilldown" : "067"
+               "y" : 88
             },
             {
-               "name" : "#068",
+               "drilldown" : "068",
                "y" : 73,
-               "drilldown" : "068"
+               "name" : "#068"
             },
             {
-               "drilldown" : "069",
                "y" : 81,
-               "name" : "#069"
+               "name" : "#069",
+               "drilldown" : "069"
             },
             {
-               "drilldown" : "070",
                "y" : 91,
-               "name" : "#070"
+               "name" : "#070",
+               "drilldown" : "070"
             },
             {
                "drilldown" : "071",
-               "name" : "#071",
-               "y" : 76
+               "y" : 76,
+               "name" : "#071"
             },
             {
-               "drilldown" : "072",
                "y" : 109,
-               "name" : "#072"
+               "name" : "#072",
+               "drilldown" : "072"
             },
             {
                "drilldown" : "073",
-               "y" : 108,
-               "name" : "#073"
+               "name" : "#073",
+               "y" : 108
             },
             {
                "drilldown" : "074",
-               "y" : 39,
+               "y" : 41,
                "name" : "#074"
             }
-         ],
-         "name" : "Perl Weekly Challenge Languages"
+         ]
       }
    ],
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-08-18 18:08:26 GMT"
+   },
    "title" : {
       "text" : "Perl Weekly Challenge Language"
    },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
    "drilldown" : {
       "series" : [
          {
             "id" : "001",
-            "name" : "001",
             "data" : [
                [
                   "Perl",
@@ -426,11 +403,12 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "001"
          },
          {
-            "id" : "002",
             "name" : "002",
+            "id" : "002",
             "data" : [
                [
                   "Perl",
@@ -447,6 +425,7 @@
             ]
          },
          {
+            "id" : "003",
             "data" : [
                [
                   "Perl",
@@ -461,7 +440,6 @@
                   9
                ]
             ],
-            "id" : "003",
             "name" : "003"
          },
          {
@@ -501,8 +479,8 @@
             ]
          },
          {
-            "id" : "006",
             "name" : "006",
+            "id" : "006",
             "data" : [
                [
                   "Perl",
@@ -520,7 +498,6 @@
          },
          {
             "id" : "007",
-            "name" : "007",
             "data" : [
                [
                   "Perl",
@@ -534,11 +511,12 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "007"
          },
          {
-            "id" : "008",
             "name" : "008",
+            "id" : "008",
             "data" : [
                [
                   "Perl",
@@ -569,11 +547,10 @@
                   13
                ]
             ],
-            "name" : "009",
-            "id" : "009"
+            "id" : "009",
+            "name" : "009"
          },
          {
-            "name" : "010",
             "id" : "010",
             "data" : [
                [
@@ -588,11 +565,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "010"
          },
          {
             "id" : "011",
-            "name" : "011",
             "data" : [
                [
                   "Perl",
@@ -606,10 +583,10 @@
                   "Blog",
                   10
                ]
-            ]
+            ],
+            "name" : "011"
          },
          {
-            "name" : "012",
             "id" : "012",
             "data" : [
                [
@@ -624,9 +601,11 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "012"
          },
          {
+            "id" : "013",
             "data" : [
                [
                   "Perl",
@@ -641,11 +620,9 @@
                   13
                ]
             ],
-            "id" : "013",
             "name" : "013"
          },
          {
-            "id" : "014",
             "name" : "014",
             "data" : [
                [
@@ -660,9 +637,11 @@
                   "Blog",
                   15
                ]
-            ]
+            ],
+            "id" : "014"
          },
          {
+            "id" : "015",
             "data" : [
                [
                   "Perl",
@@ -677,12 +656,9 @@
                   15
                ]
             ],
-            "id" : "015",
             "name" : "015"
          },
          {
-            "name" : "016",
-