- Added solutions by Guillermo Ramos.

11 files changed, 831 insertions, 721 deletions

diff --git a/challenge-014/guillermo-ramos/perl5/ch-1.pl b/challenge-014/guillermo-ramos/perl5/ch-1.pl
new file mode 100644
index 0000000000..60db7e272e
--- /dev/null
+++ b/challenge-014/guillermo-ramos/perl5/ch-1.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+#
+# Write a script to generate Van Eck’s sequence starts with 0
+# (https://en.wikipedia.org/wiki/Van_Eck%27s_sequence)
+################################################################################
+
+use strict;
+use warnings;
+
+my $iterations = shift or die "Usage: $0 <iterations>\n";
+
+# Computed sequence
+my @vaneck = (0);
+
+# Map numbers to the last time they appear in sequence
+my %lastpos = (0 => 0);
+
+# For every n, compute (push) n+1
+foreach my $n (0 .. $iterations-2) {
+    my $curn = $vaneck[$n];
+    my $m = $lastpos{$curn};
+    my $nextn = defined $m ? $n-$m : 0;
+    push @vaneck, $nextn;
+    $lastpos{$curn} = $n;
+}
+
+print "@vaneck\n";
diff --git a/challenge-014/guillermo-ramos/perl5/ch-2.pl b/challenge-014/guillermo-ramos/perl5/ch-2.pl
new file mode 100644
index 0000000000..6cc4922068
--- /dev/null
+++ b/challenge-014/guillermo-ramos/perl5/ch-2.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/env perl
+#
+# Using only the official postal (2-letter) abbreviations for the 50
+# U.S. states, write a script to find the longest English word you can spell?
+# (https://en.wikipedia.org/wiki/List_of_U.S._state_abbreviations)
+################################################################################
+
+use strict;
+use warnings;
+
+use List::Util qw<max>;
+# https://github.com/dwyl/english-words
+my $DICTPATH = shift or die "Usage: $0 <dict>\n";
+
+# Extracted from Wikipedia + some Emacs macro wizardry
+my %STATES = ( AK => 'Alaska', AL => 'Alabama', AR => 'Arkansas', AZ => 'Arizona',
+    CA => 'California', CO => 'Colorado', CT => 'Connecticut', DE => 'Delaware', FL
+    => 'Florida', GA => 'Georgia', HI => 'Hawaii', IA => 'Iowa', ID => 'Idaho', IL =>
+    'Illinois', IN => 'Indiana', KS => 'Kansas', KY => 'Kentucky', LA =>
+    'Louisiana', MA => 'Massachusetts', MD => 'Maryland', ME => 'Maine', MI =>
+    'Michigan', MN => 'Minnesota', MO => 'Missouri', MS => 'Mississippi', MT =>
+    'Montana', NC => 'North Carolina', ND => 'North Dakota', NE => 'Nebraska', NH =>
+    'New Hampshire', NJ => 'New Jersey', NM => 'New Mexico', NV => 'Nevada', NY =>
+    'New York', OH => 'Ohio', OK => 'Oklahoma', OR => 'Oregon', PA =>
+    'Pennsylvania', RI => 'Rhode Island', SC => 'South Carolina', SD => 'South Dakota',
+    TN => 'Tennessee', TX => 'Texas', UT => 'Utah', VA => 'Virginia', VT =>
+    'Vermont', WA => 'Washington', WI => 'Wisconsin', WV => 'West Virginia', WY =>
+    'Wyoming' );
+my @ABBREVS = keys %STATES;
+
+# For efficiency, keep the longest word found while filtering suitable words
+my $max_len = 0;
+
+# Given a word, return whether it can be composed using state abbreviations
+sub suitable {
+    $_ =~ s/^\s+|\s+$//g; # Trim
+
+    my $len = length $_;
+    return 0 if $len % 2 != 0; # Length must be even
+
+    # Iterate word in 2-letter chunks checking they are valid abbreviations
+    foreach my $i (0 .. $len/2-1) {
+        my $abbrev = uc(substr($_, $i*2, 2));
+        return 0 unless grep /^$abbrev$/, @ABBREVS;
+    }
+
+    $max_len = max $max_len, $len; # Update max_len if needed
+    return 1;
+}
+
+# Read words from $DICTPATH and store suitable ones in @suitable_words
+open(my $dictd, '<', $DICTPATH) or die 'Unable to open dictionary: $!';
+my @suitable_words = grep suitable, <$dictd>;
+close($dictd);
+
+# Find the longest word(s)...
+for my $word (@suitable_words) {
+    my $len = length $word;
+    if ($len == $max_len) {
+        # ... and print their composition (states)
+        my @states;
+        foreach my $i (0 .. $len/2-1) {
+            my $abbrev = uc(substr($word, $i*2, 2));
+            push @states, $STATES{$abbrev};
+        }
+        print join(" + ", @states), " = $word\n";
+    }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 9c5f2c953b..0111acf59b 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,23 +1,43 @@
 {
-   "chart" : {
-      "type" : "column"
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         },
+         "borderWidth" : 0
+      }
    },
    "xAxis" : {
       "type" : "category"
    },
+   "subtitle" : {
+      "text" : "[Champions: 26] Last updated at 2019-06-30 14:53:31 GMT"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "tooltip" : {
+      "followPointer" : 1,
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 014"
+   },
    "legend" : {
       "enabled" : 0
    },
    "drilldown" : {
       "series" : [
          {
+            "id" : "Aaron Sherman",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "id" : "Aaron Sherman",
             "name" : "Aaron Sherman"
          },
          {
@@ -35,16 +55,17 @@
             "name" : "Adam Russell"
          },
          {
+            "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Andrezgz",
-            "name" : "Andrezgz"
+            "id" : "Andrezgz"
          },
          {
+            "name" : "Athanasius",
             "data" : [
                [
                   "Perl 5",
@@ -59,20 +80,20 @@
                   1
                ]
             ],
-            "name" : "Athanasius",
             "id" : "Athanasius"
          },
          {
-            "name" : "Daniel Mantovani",
             "id" : "Daniel Mantovani",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Daniel Mantovani"
          },
          {
+            "id" : "Dave Jacoby",
             "data" : [
                [
                   "Perl 5",
@@ -87,10 +108,10 @@
                   1
                ]
             ],
-            "id" : "Dave Jacoby",
             "name" : "Dave Jacoby"
          },
          {
+            "id" : "Donald Hunter",
             "data" : [
                [
                   "Perl 6",
@@ -101,18 +122,17 @@
                   2
                ]
             ],
-            "id" : "Donald Hunter",
             "name" : "Donald Hunter"
          },
          {
             "name" : "Duane Powell",
-            "id" : "Duane Powell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "Duane Powell"
          },
          {
             "name" : "E. Choroba",
@@ -129,6 +149,8 @@
             ]
          },
          {
+            "name" : "Feng Chang",
+            "id" : "Feng Chang",
             "data" : [
                [
                   "Perl 5",
@@ -138,13 +160,9 @@
                   "Perl 6",
                   2
                ]
-            ],
-            "id" : "Feng Chang",
-            "name" : "Feng Chang"
+            ]
          },
          {
-            "name" : "Francis Whittle",
-            "id" : "Francis Whittle",
             "data" : [
                [
                   "Perl 6",
@@ -154,31 +172,42 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Francis Whittle",
+            "name" : "Francis Whittle"
          },
          {
-            "name" : "Gustavo Chaves",
-            "id" : "Gustavo Chaves",
+            "id" : "Guillermo Ramos",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Guillermo Ramos"
          },
          {
+            "id" : "Gustavo Chaves",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
+            "name" : "Gustavo Chaves"
+         },
+         {
+            "name" : "Jaime Corchado",
             "id" : "Jaime Corchado",
-            "name" : "Jaime Corchado"
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ]
+            ]
          },
          {
             "name" : "Joelle Maslak",
-            "id" : "Joelle Maslak",
             "data" : [
                [
                   "Perl 5",
@@ -188,7 +217,8 @@
                   "Perl 6",
                   3
                ]
-            ]
+            ],
+            "id" : "Joelle Maslak"
          },
          {
             "name" : "Kevin Colyer",
@@ -201,8 +231,6 @@
             ]
          },
          {
-            "name" : "Laurent Rosenfeld",
-            "id" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -216,11 +244,13 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld"
          },
          {
-            "id" : "Lubos Kolouch",
             "name" : "Lubos Kolouch",
+            "id" : "Lubos Kolouch",
             "data" : [
                [
                   "Perl 5",
@@ -229,38 +259,38 @@
             ]
          },
          {
+            "name" : "Neil Bowers",
             "data" : [
                [
                   "Blog",
                   1
                ]
             ],
-            "name" : "Neil Bowers",
             "id" : "Neil Bowers"
          },
          {
+            "name" : "Noud",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
             ],
-            "name" : "Noud",
             "id" : "Noud"
          },
          {
+            "id" : "Robert Van Dam",
             "data" : [
                [
                   "Perl 5",
                   3
                ]
             ],
-            "id" : "Robert Van Dam",
             "name" : "Robert Van Dam"
          },
          {
-            "id" : "Roger Bell West",
             "name" : "Roger Bell West",
+            "id" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -269,6 +299,7 @@
             ]
          },
          {
+            "name" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -279,20 +310,21 @@
                   2
                ]
             ],
-            "id" : "Ruben Westerberg",
-            "name" : "Ruben Westerberg"
+            "id" : "Ruben Westerberg"
          },
          {
-            "name" : "Simon Proctor",
             "id" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "name" : "Simon Proctor"
          },
          {
+            "name" : "Steven Wilson",
+            "id" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
@@ -302,9 +334,7 @@
                   "Blog",
                   1
                ]
-            ],
-            "name" : "Steven Wilson",
-            "id" : "Steven Wilson"
+            ]
          },
          {
             "data" : [
@@ -318,26 +348,8 @@
          }
       ]
    },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "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/>"
-   },
-   "subtitle" : {
-      "text" : "[Champions: 25] Last updated at 2019-06-30 09:50:29 GMT"
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 014"
-   },
    "series" : [
       {
-         "name" : "Perl Weekly Challenge - 014",
-         "colorByPoint" : 1,
          "data" : [
             {
                "y" : 2,
@@ -346,13 +358,13 @@
             },
             {
                "drilldown" : "Adam Russell",
-               "y" : 3,
-               "name" : "Adam Russell"
+               "name" : "Adam Russell",
+               "y" : 3
             },
             {
-               "y" : 2,
+               "drilldown" : "Andrezgz",
                "name" : "Andrezgz",
-               "drilldown" : "Andrezgz"
+               "y" : 2
             },
             {
                "name" : "Athanasius",
@@ -365,28 +377,28 @@
                "name" : "Daniel Mantovani"
             },
             {
-               "name" : "Dave Jacoby",
                "y" : 4,
+               "name" : "Dave Jacoby",
                "drilldown" : "Dave Jacoby"
             },
             {
                "drilldown" : "Donald Hunter",
-               "y" : 4,
-               "name" : "Donald Hunter"
+               "name" : "Donald Hunter",
+               "y" : 4
             },
             {
                "drilldown" : "Duane Powell",
-               "name" : "Duane Powell",
-               "y" : 2
+               "y" : 2,
+               "name" : "Duane Powell"
             },
             {
+               "drilldown" : "E. Choroba",
                "name" : "E. Choroba",
-               "y" : 3,
-               "drilldown" : "E. Choroba"
+               "y" : 3
             },
             {
-               "y" : 4,
                "name" : "Feng Chang",
+               "y" : 4,
                "drilldown" : "Feng Chang"
             },
             {
@@ -395,49 +407,54 @@
                "drilldown" : "Francis Whittle"
             },
             {
-               "drilldown" : "Gustavo Chaves",
-               "name" : "Gustavo Chaves",
+               "drilldown" : "Guillermo Ramos",
+               "name" : "Guillermo Ramos",
                "y" : 2
             },
             {
-               "name" : "Jaime Corchado",
+               "drilldown" : "Gustavo Chaves",
                "y" : 2,
-               "drilldown" : "Jaime Corchado"
+               "name" : "Gustavo Chaves"
+            },
+            {
+               "drilldown" : "Jaime Corchado",
+               "name" : "Jaime Corchado",
+               "y" : 2
             },
             {
-               "y" : 6,
+               "drilldown" : "Joelle Maslak",
                "name" : "Joelle Maslak",
-               "drilldown" : "Joelle Maslak"
+               "y" : 6
             },
             {
+               "drilldown" : "Kevin Colyer",
                "name" : "Kevin Colyer",
-               "y" : 2,
-               "drilldown" : "Kevin Colyer"
+               "y" : 2
             },
             {
+               "drilldown" : "Laurent Rosenfeld",
                "name" : "Laurent Rosenfeld",
-               "y" : 5,
-               "drilldown" : "Laurent Rosenfeld"
+               "y" : 5
             },
             {
-               "name" : "Lubos Kolouch",
+               "drilldown" : "Lubos Kolouch",
                "y" : 3,
-               "drilldown" : "Lubos Kolouch"
+               "name" : "Lubos Kolouch"
             },
             {
                "drilldown" : "Neil Bowers",
-               "y" : 1,
-               "name" : "Neil Bowers"
+               "name" : "Neil Bowers",
+               "y" : 1
             },
             {
-               "name" : "Noud",
                "y" : 2,
+               "name" : "Noud",
                "drilldown" : "Noud"
             },
             {
-               "drilldown" : "Robert Van Dam",
                "y" : 3,
-               "name" : "Robert Van Dam"
+               "name" : "Robert Van Dam",
+               "drilldown" : "Robert Van Dam"
             },
             {
                "y" : 2,
@@ -445,35 +462,33 @@
                "drilldown" : "Roger Bell West"
             },
             {
-               "drilldown" : "Ruben Westerberg",
+               "y" : 4,
                "name" : "Ruben Westerberg",
-               "y" : 4
+               "drilldown" : "Ruben Westerberg"
             },
             {
-               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor",
                "y" : 2,
-               "name" : "Simon Proctor"
+               "drilldown" : "Simon Proctor"
             },
             {
-               "name" : "Steven Wilson",
                "y" : 3,
+               "name" : "Steven Wilson",
                "drilldown" : "Steven Wilson"
             },
             {
                "drilldown" : "Walt Mankowski",
-               "y" : 2,
-               "name" : "Walt Mankowski"
+               "name" : "Walt Mankowski",
+               "y" : 2
             }
-         ]
+         ],
+         "colorByPoint" : 1,
+         "name" : "Perl Weekly Challenge - 014"
       }
    ],
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
       }
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 1482b863ab..88bd6b4dbe 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,9 +1,15 @@
 {
-   "chart" : {
-      "type" : "column"
+   "xAxis" : {
+      "type" : "category",
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      }
    },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
+   "subtitle" : {
+      "text" : "Last updated at 2019-06-30 14:53:53 GMT"
    },
    "yAxis" : {
       "min" : 0,
@@ -11,9 +17,32 @@
          "text" : null
       }
    },
+   "title" : {
+      "text" : "Perl Weekly Challenge Contributions - 2019"
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
    "series" : [
       {
-         "name" : "Contributions",
+         "dataLabels" : {
+            "style" : {
+               "fontFamily" : "Verdana, sans-serif",
+               "fontSize" : "13px"
+            },
+            "y" : 10,
+            "enabled" : "true",
+            "color" : "#FFFFFF",
+            "align" : "right",
+            "format" : "{point.y:.0f}",
+            "rotation" : -90
+         },
          "data" : [
             [
                "Blog",
@@ -21,43 +50,14 @@
             ],
             [
                "Perl 5",
-               572
+               574
             ],
             [
                "Perl 6",
                335
             ]
          ],
-         "dataLabels" : {
-            "y" : 10,
-            "enabled" : "true",
-            "align" : "right",
-            "rotation" : -90,
-            "style" : {
-               "fontFamily" : "Verdana, sans-serif",
-               "fontSize" : "13px"
-            },
-            "format" : "{point.y:.0f}",
-            "color" : "#FFFFFF"
-         }
-      }
-   ],
-   "xAxis" : {
-      "type" : "category",
-      "labels" : {
-         "style" : {
-            "fontFamily" : "Verdana, sans-serif",
-            "fontSize" : "13px"
-         }
+         "name" : "Contributions"
       }
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-06-30 09:50:52 GMT"
-   },
-   "legend" : {
-      "enabled" : "false"
-   }
+   ]
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index fc77f4d3c2..f358ac8a51 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,48 +1,38 @@
 {
    "tooltip" : {
-      "followPointer" : "true",
       "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
+      "followPointer" : "true",
       "headerFormat" : "<span style=\"font-size:11px\"></span>"
    },
-   "chart" : {
-      "type" : "column"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
    "series" : [
       {
          "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Languages",
          "data" : [
             {
-               "name" : "#001",
                "drilldown" : "001",
+               "name" : "#001",
                "y" : 123
             },
             {
-               "y" : 104,
+               "name" : "#002",
                "drilldown" : "002",
-               "name" : "#002"
+               "y" : 104
             },
             {
-               "drilldown" : "003",
                "y" : 66,
+               "drilldown" : "003",
                "name" : "#003"
             },
             {
-               "name" : "#004",
                "drilldown" : "004",
+               "name" : "#004",
                "y" : 84
             },
             {
                "drilldown" : "005",
-               "y" : 66,
-               "name" : "#005"
+               "name" : "#005",
+               "y" : 66
             },
             {
                "y" : 47,
@@ -50,9 +40,9 @@
                "name" : "#006"
             },
             {
-               "drilldown" : "007",
                "y" : 54,
-               "name" : "#007"
+               "name" : "#007",
+               "drilldown" : "007"
             },
             {
                "name" : "#008",
@@ -70,51 +60,38 @@
                "name" : "#010"
             },
             {
+               "name" : "#011",
                "drilldown" : "011",
-               "y" : 75,
-               "name" : "#011"
+               "y" : 75
             },
             {
                "name" : "#012",
-               "y" : 81,
-               "drilldown" : "012"
+               "drilldown" : "012",
+               "y" : 81
             },
             {
+               "y" : 74,
                "name" : "#013",
-               "drilldown" : "013",
-               "y" : 74
+               "drilldown" : "013"
             },
             {
+               "y" : 76,
                "drilldown" : "014",
-               "y" : 74,
                "name" : "#014"
             }
-         ],
-         "name" : "Perl Weekly Challenge Languages"
+         ]
       }
    ],
-   "plotOptions" : {
-      "series" : {
-         "borderWidth" : 0,
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         }
-      }
+   "chart" : {
+      "type" : "column"
    },
    "legend" : {
       "enabled" : "false"
    },
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
-   },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-06-30 09:50:52 GMT"
-   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "001",
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -129,11 +106,9 @@
                   10
                ]
             ],
-            "name" : "001"
+            "id" : "001"
          },
          {
-            "name" : "002",
-            "id" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -147,11 +122,13 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "name" : "002",
+            "id" : "002"
          },
          {
-            "name" : "003",
             "id" : "003",
+            "name" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -168,8 +145,8 @@
             ]
          },
          {
-            "name" : "004",
             "id" : "004",
+            "name" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -186,7 +163,6 @@
             ]
          },
          {
-            "name" : "005",
             "id" : "005",
             "data" : [
                [
@@ -201,7 +177,8 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "name" : "005"
          },
          {
             "id" : "006",
@@ -222,7 +199,7 @@
             "name" : "006"
          },
          {
-            "id" : "007",
+            "name" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -237,10 +214,9 @@
                   8
                ]
             ],
-            "name" : "007"
+            "id" : "007"
          },
          {
-            "id" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -255,11 +231,12 @@
                   9
                ]
             ],
-            "name" : "008"
+            "name" : "008",
+            "id" : "008"
          },
          {
-            "name" : "009",
             "id" : "009",
+            "name" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -276,7 +253,7 @@
             ]
          },
          {
-            "name" : "010",
+            "id" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -291,11 +268,11 @@
                   9
                ]
             ],
-            "id" : "010"
+            "name" : "010"
          },
          {
-            "name" : "011",
             "id" : "011",
+            "name" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -312,6 +289,7 @@
             ]
          },
          {
+            "name" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -326,10 +304,10 @@
                   9
                ]
             ],
-            "id" : "012",
-            "name" : "012"
+            "id" : "012"
          },
          {
+            "id" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -344,14 +322,14 @@
                   11
                ]
             ],
-            "id" : "013",
             "name" : "013"
          },
          {
+            "id" : "014",
             "data" : [
                [
                   "Perl 5",
-                  39
+                  41
                ],
                [
                   "Perl 6",
@@ -362,9 +340,31 @@
                   10
                ]
             ],
-            "id" : "014",
             "name" : "014"
          }
       ]
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
+      }
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-06-30 14:53:53 GMT"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
    }
 }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index 57b05606bd..dc4560c34d 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -1,62 +1,73 @@
 {
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Score"
+   "title" : {
+      "text" : "Perl Weekly Challenge Leaders (TOP 50)"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
       }
    },
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the score breakdown. Last updated at 2019-06-30 14:53:45 GMT"
+   },
    "series" : [
       {
+         "colorByPoint" : "true",
          "name" : "Perl Weekly Challenge Leaders",
          "data" : [
             {
                "y" : 148,
-               "name" : "#1: Joelle Maslak",
-               "drilldown" : "Joelle Maslak"
+               "drilldown" : "Joelle Maslak",
+               "name" : "#1: Joelle Maslak"
             },
             {