- Added solutions by Arne Sommer.

17 files changed, 986 insertions, 675 deletions

diff --git a/challenge-005/arne-sommer/blog.txt b/challenge-005/arne-sommer/blog.txt
new file mode 100644
index 0000000000..41b8948747
--- /dev/null
+++ b/challenge-005/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://perl6.eu/anagrams.html
diff --git a/challenge-005/arne-sommer/perl6/ch-1.p6 b/challenge-005/arne-sommer/perl6/ch-1.p6
new file mode 100755
index 0000000000..660283c160
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/ch-1.p6
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str $word is copy where $word !~~ /\W/,
+  :$dictionary where $dictionary.IO.r = "/usr/share/dict/british-english");
+
+$word .= lc;
+
+my $dict = get-dictionary($dictionary);
+ 
+print "Anagrams:";
+
+for $word.comb.permutations>>.join.unique -> $candidate
+{
+  # next if $candidate eq $word;
+  print " $candidate" if $dict{$candidate};
+}
+print "\n";
+
+sub get-dictionary ($file where $file.IO.r) is export
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
+
diff --git a/challenge-005/arne-sommer/perl6/ch-2.p6 b/challenge-005/arne-sommer/perl6/ch-2.p6
new file mode 100755
index 0000000000..b70495d4a5
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/ch-2.p6
@@ -0,0 +1,25 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str :$dictionary where $dictionary.IO.r = "dict-UK.txt");
+
+my $dict = get-dictionary($dictionary);
+
+my %count;
+
+%count{ .comb.sort.join }++ for $dict.keys;
+
+my $max = 0;
+
+for %count.keys.sort( { %count{$^b} <=> %count{$^a} } )
+{
+  $max = %count{$_} if %count{$_} > $max;
+
+  last if  %count{$_} < $max;
+  
+  say "$_: ", %count{$_};
+}
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
diff --git a/challenge-005/arne-sommer/perl6/ch-2a.p6 b/challenge-005/arne-sommer/perl6/ch-2a.p6
new file mode 100755
index 0000000000..a7f5ed6302
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/ch-2a.p6
@@ -0,0 +1,30 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str :$dictionary where $dictionary.IO.r = "dict-UK.txt");
+
+my $dict = get-dictionary($dictionary);
+
+my %count;
+
+%count{ .comb.sort.join }++ for $dict.keys;
+
+my $max = 0;
+
+for %count.keys.sort( { %count{$^b} <=> %count{$^a} } )
+{
+  $max = %count{$_} if %count{$_} > $max;
+
+  last if  %count{$_} < $max;
+  
+  say "$_: ", %count{$_}, " ", anagrams($_);
+}
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
+
+sub anagrams ($word)
+{
+  $word.comb.permutations>>.join.unique.grep( { $dict{$_} } );
+}
\ No newline at end of file
diff --git a/challenge-005/arne-sommer/perl6/dictionary-lookup b/challenge-005/arne-sommer/perl6/dictionary-lookup
new file mode 100755
index 0000000000..45159968ae
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/dictionary-lookup
@@ -0,0 +1,17 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str $word is copy where $word !~~ /\W/);
+
+$word .= lc;
+my %dict = get-dictionary("/usr/share/dict/british-english");
+
+say %dict{$word}
+  ?? "$word: Is a valid word"
+  !! "$word: Not a valid word";
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  my %hash;
+  $file.IO.lines.grep(* !~~ /\W/).map({ %hash{.lc} = True; });
+  return %hash;
+}
diff --git a/challenge-005/arne-sommer/perl6/dictionary-lookup2 b/challenge-005/arne-sommer/perl6/dictionary-lookup2
new file mode 100755
index 0000000000..b7d567cc37
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/dictionary-lookup2
@@ -0,0 +1,17 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str $word is copy where $word !~~ /\W/,
+  :$dictionary where $dictionary.IO.r = "/usr/share/dict/british-english");
+
+$word .= lc;
+
+my $dict = get-dictionary($dictionary);
+
+say $dict{$word}
+  ?? "$word: Is a valid word"
+  !! "$word: Not a valid word";
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
diff --git a/challenge-005/arne-sommer/perl6/english.txt b/challenge-005/arne-sommer/perl6/english.txt
new file mode 100755
index 0000000000..f23ff6e95c
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/english.txt
@@ -0,0 +1,61 @@
+a
+#al
+ale
+an
+au
+earl
+earn
+elf
+#erna
+#fa
+fan
+far
+#fe
+#fen
+#fer
+#feral
+flan
+flare
+flea
+flu
+#flue
+#fr
+fuel
+fun
+funeral
+fur
+#furl
+#la
+lane
+#le
+#lea
+leaf
+lean
+lear
+#len
+#lena
+luna
+lunar
+lure
+#na
+#ne
+neal
+near
+#nu
+#ra
+#ran
+#raul
+#re
+real
+#ref
+#rena
+#rn
+#rue
+rule
+run
+#ufa
+#ulna
+#ulnae
+#ur
+ural
+urn
diff --git a/challenge-005/arne-sommer/perl6/maxigrams-error b/challenge-005/arne-sommer/perl6/maxigrams-error
new file mode 100755
index 0000000000..d87a9c8d59
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/maxigrams-error
@@ -0,0 +1,38 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str :$dictionary where $dictionary.IO.r = "dict-UK.txt");
+
+my $dict = get-dictionary($dictionary);
+
+my %count;
+
+for $dict.keys.sort( { $^b.chars <=>  $^a.chars } ) -> $word
+{
+  next if $word.chars > 20;
+  
+  last if %count.values.max > $word.chars;
+  
+  %count{$word} = count-anagrams($word);
+}
+
+for %count.keys.sort( { %count{$^b} <=> %count{$^a} } )
+{
+  say "$_ : ", %count{$_};
+}
+
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
+
+sub count-anagrams ($word)
+{
+  my $count = 0;
+  
+  $count++ if $dict{$_} for $word.comb.permutations>>.join.unique;
+
+  say "$word: $count";
+  return $count;
+}
+
diff --git a/challenge-005/arne-sommer/perl6/mkdictionary b/challenge-005/arne-sommer/perl6/mkdictionary
new file mode 100755
index 0000000000..31e9fc0522
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/mkdictionary
@@ -0,0 +1,14 @@
+#! /usr/bin/env perl6
+
+my %source =
+  <UK> => "/usr/share/dict/british-english",
+  <US> => "/usr/share/dict/american-english",
+  <DE> => "/usr/share/dict/ngerman";
+
+unit sub MAIN (Str $language where %source{$language}.defined);
+
+my @lines = %source{$language}.IO.lines.grep(* !~~ /\W/);
+
+spurt "dict-$language.txt", $language eq "DE"
+ ?? @lines.join("\n") ~ "\n"
+ !! "A\nI\n" ~ @lines.grep( {.chars > 1 } ).join("\n") ~ "\n";
diff --git a/challenge-005/arne-sommer/perl6/multigrams b/challenge-005/arne-sommer/perl6/multigrams
new file mode 100755
index 0000000000..63aa4925f9
--- /dev/null
+++ b/challenge-005/arne-sommer/perl6/multigrams
@@ -0,0 +1,70 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (Str $word is copy,
+  :$dictionary where $dictionary.IO.r = "dict-UK.txt",
+  :$log-words, :$tabular);
+
+$word = $word.trans(" " => "", :delete).lc;
+
+my $dict = get-dictionary($dictionary);
+
+my @permutations = $word.comb.permutations>>.join.unique;
+  
+my SetHash $seen;
+my SetHash $word-list;
+
+check-anagram("", $_) for @permutations; 
+
+say "Anagrams: { $seen.keys.elems }";
+
+if $tabular
+{
+  my %shown;
+  for $seen.keys.sort
+  {
+    unless /\s/ { .say; next; } 
+
+    my @w = .words.sort;
+    my $w = @w.join(" ");
+
+    next if %shown{$w};
+  
+    %shown{$w} = True;
+    print $w unless @w;
+
+    print @w.permutations.unique.join(" | ");
+    print "\n";
+  }
+}
+else
+{
+  .say for $seen.keys.sort;
+}
+
+spurt "wordlog.txt", $word-list.keys.sort.join("\n") ~ "\n" if $log-words;
+
+sub get-dictionary ($file where $file.IO.r)
+{
+  return $file.IO.lines.grep(* !~~ /\W/)>>.lc.Set;
+}
+
+sub check-anagram ($base is copy, $candidate is copy)
+{
+  # say "[$base][$candidate]";
+
+  if $dict{$candidate}
+  {
+    $word-list{$candidate} = True if $log-words;
+    $seen{"$base $candidate".trim-leading} = True;
+      # The first character is a space.
+    return;
+  }
+
+  for 1 .. $candidate.chars
+  {
+    my $new-base      = $candidate.substr(0, $_);
+    my $new-candidate = $candidate.substr($_);
+    # say ">> $new-base >> $new-candidate";
+    check-anagram("$base $new-base", $new-candidate) if $dict{$new-base};
+  }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 25ca8827fa..b373f4a73d 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,37 +1,157 @@
 {
-   "chart" : {
-      "type" : "column"
-   },
+   "series" : [
+      {
+         "name" : "Champions",
+         "colorByPoint" : 1,
+         "data" : [
+            {
+               "y" : 2,
+               "drilldown" : "Adam Russell",
+               "name" : "Adam Russell"
+            },
+            {
+               "drilldown" : "Andrezgz",
+               "name" : "Andrezgz",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer"
+            },
+            {
+               "name" : "Athanasius",
+               "drilldown" : "Athanasius",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Daniel Mantovani",
+               "name" : "Daniel Mantovani"
+            },
+            {
+               "name" : "Doug Schrag",
+               "drilldown" : "Doug Schrag",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "name" : "Duncan C. White",
+               "drilldown" : "Duncan C. White"
+            },
+            {
+               "name" : "E. Choroba",
+               "drilldown" : "E. Choroba",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "name" : "Francis Whittle",
+               "drilldown" : "Francis Whittle"
+            },
+            {
+               "name" : "Gustavo Chaves",
+               "drilldown" : "Gustavo Chaves",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "name" : "Jaime Corchado",
+               "drilldown" : "Jaime Corchado"
+            },
+            {
+               "drilldown" : "Jaldhar H. Vyas",
+               "name" : "Jaldhar H. Vyas",
+               "y" : 4
+            },
+            {
+               "drilldown" : "Dr James A. Smith",
+               "name" : "Dr James A. Smith",
+               "y" : 2
+            },
+            {
+               "name" : "Joelle Maslak",
+               "drilldown" : "Joelle Maslak",
+               "y" : 4
+            },
+            {
+               "y" : 2,
+               "drilldown" : "John Barrett",
+               "name" : "John Barrett"
+            },
+            {
+               "name" : "Lars Balker",
+               "drilldown" : "Lars Balker",
+               "y" : 2
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "drilldown" : "Laurent Rosenfeld",
+               "y" : 4
+            },
+            {
+               "name" : "Mark Senn",
+               "drilldown" : "Mark Senn",
+               "y" : 2
+            },
+            {
+               "drilldown" : "Robert Gratza",
+               "name" : "Robert Gratza",
+               "y" : 2
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Ruben Westerberg",
+               "name" : "Ruben Westerberg"
+            },
+            {
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor",
+               "y" : 2
+            }
+         ]
+      }
+   ],
    "drilldown" : {
       "series" : [
          {
+            "name" : "Adam Russell",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Adam Russell",
             "id" : "Adam Russell"
          },
          {
-            "name" : "Andrezgz",
             "id" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
+            ],
+            "name" : "Andrezgz"
+         },
+         {
+            "name" : "Arne Sommer",
+            "id" : "Arne Sommer",
+            "data" : [
+               [
+                  "Perl 6",
+                  2
+               ]
             ]
          },
          {
+            "name" : "Athanasius",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Athanasius",
             "id" : "Athanasius"
          },
          {
@@ -45,14 +165,14 @@
             ]
          },
          {
-            "id" : "Doug Schrag",
-            "name" : "Doug Schrag",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Doug Schrag",
+            "name" : "Doug Schrag"
          },
          {
             "data" : [
@@ -65,14 +185,14 @@
             "name" : "Duncan C. White"
          },
          {
+            "name" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "E. Choroba",
-            "name" : "E. Choroba"
+            "id" : "E. Choroba"
          },
          {
             "name" : "Francis Whittle",
@@ -86,26 +206,25 @@
          },
          {
             "id" : "Gustavo Chaves",
-            "name" : "Gustavo Chaves",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Gustavo Chaves"
          },
          {
-            "name" : "Jaime Corchado",
             "id" : "Jaime Corchado",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "name" : "Jaime Corchado"
          },
          {
-            "name" : "Jaldhar H. Vyas",
             "id" : "Jaldhar H. Vyas",
             "data" : [
                [
@@ -116,7 +235,8 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "name" : "Jaldhar H. Vyas"
          },
          {
             "data" : [
@@ -139,31 +259,30 @@
                   2
                ]
             ],
-            "name" : "Joelle Maslak",
-            "id" : "Joelle Maslak"
+            "id" : "Joelle Maslak",
+            "name" : "Joelle Maslak"
          },
          {
-            "name" : "John Barrett",
-            "id" : "John Barrett",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ]
+            ],
+            "id" : "John Barrett",
+            "name" : "John Barrett"
          },
          {
+            "id" : "Lars Balker",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "id" : "Lars Balker",
             "name" : "Lars Balker"
          },
          {
-            "id" : "Laurent Rosenfeld",
             "name" : "Laurent Rosenfeld",
             "data" : [
                [
@@ -174,7 +293,8 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Laurent Rosenfeld"
          },
          {
             "data" : [
@@ -183,12 +303,12 @@
                   2
                ]
             ],
-            "name" : "Mark Senn",
-            "id" : "Mark Senn"
+            "id" : "Mark Senn",
+            "name" : "Mark Senn"
          },
          {
-            "id" : "Robert Gratza",
             "name" : "Robert Gratza",
+            "id" : "Robert Gratza",
             "data" : [
                [
                   "Perl 6",
@@ -198,7 +318,6 @@
          },
          {
             "name" : "Ruben Westerberg",
-            "id" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -208,11 +327,12 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Ruben Westerberg"
          },
          {
-            "id" : "Simon Proctor",
             "name" : "Simon Proctor",
+            "id" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
@@ -222,143 +342,38 @@
          }
       ]
    },
-   "legend" : {
-      "enabled" : 0
+   "chart" : {
+      "type" : "column"
    },
-   "series" : [
-      {
-         "data" : [
-            {
-               "name" : "Adam Russell",
-               "drilldown" : "Adam Russell",
-               "y" : 2
-            },
-            {
-               "name" : "Andrezgz",
-               "drilldown" : "Andrezgz",
-               "y" : 2
-            },
-            {
-               "name" : "Athanasius",
-               "drilldown" : "Athanasius",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "Daniel Mantovani",
-               "drilldown" : "Daniel Mantovani"
-            },
-            {
-               "drilldown" : "Doug Schrag",
-               "name" : "Doug Schrag",
-               "y" : 2
-            },
-            {
-               "drilldown" : "Duncan C. White",
-               "name" : "Duncan C. White",
-               "y" : 2
-            },
-            {
-               "name" : "E. Choroba",
-               "drilldown" : "E. Choroba",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "Francis Whittle",
-               "drilldown" : "Francis Whittle"
-            },
-            {
-               "drilldown" : "Gustavo Chaves",
-               "name" : "Gustavo Chaves",
-               "y" : 2
-            },
-            {
-               "y" : 2,
-               "name" : "Jaime Corchado",
-               "drilldown" : "Jaime Corchado"
-            },
-            {
-               "y" : 4,
-               "drilldown" : "Jaldhar H. Vyas",
-               "name" : "Jaldhar H. Vyas"
-            },
-            {
-               "y" : 2,
-               "name" : "Dr James A. Smith",
-               "drilldown" : "Dr James A. Smith"
-            },
-            {
-               "name" : "Joelle Maslak",
-               "drilldown" : "Joelle Maslak",
-               "y" : 4
-            },
-            {
-               "y" : 2,
-               "drilldown" : "John Barrett",
-               "name" : "John Barrett"
-            },
-            {
-               "drilldown" : "Lars Balker",
-               "name" : "Lars Balker",
-               "y" : 2
-            },
-            {
-               "y" : 4,
-               "name" : "Laurent Rosenfeld",
-               "drilldown" : "Laurent Rosenfeld"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Mark Senn",
-               "name" : "Mark Senn"
-            },
-            {
-               "y" : 2,
-               "drilldown" : "Robert Gratza",
-               "name" : "Robert Gratza"
-            },
-            {
-               "name" : "Ruben Westerberg",
-               "drilldown" : "Ruben Westerberg",
-               "y" : 4
-            },
-            {
-               "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor",
-               "y" : 2
-            }
-         ],
-         "name" : "Champions",
-         "colorByPoint" : 1
+   "xAxis" : {
+      "type" : "category"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         }
       }
-   ],
-   "subtitle" : {
-      "text" : "[Champions: 20] Last updated at 2019-04-28 17:19:21 GMT"
+   },
+   "legend" : {
+      "enabled" : 0
    },
    "tooltip" : {
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
       "pointerFormat" : "<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/>"
+      "followPointer" : 1
    },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
+   "subtitle" : {
+      "text" : "[Champions: 21] Last updated at 2019-04-28 17:32:31 GMT"
+   },
    "title" : {
       "text" : "Perl Weekly Challenge - 005"
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 6fa6073855..f4366ce08c 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,66 +1,72 @@
 {
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{point.color}\">{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>",
+      "followPointer" : "true"
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
+      }
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
    "series" : [
       {
+         "colorByPoint" : "true",
          "name" : "Perl Weekly Challenge Languages",
          "data" : [
             {
-               "drilldown" : "001",
                "name" : "#001 [P5=76 P6=37]",
+               "drilldown" : "001",
                "y" : 113
             },
             {
+               "drilldown" : "002",
                "y" : 95,
-               "name" : "#002 [P5=63 P6=32]",
-               "drilldown" : "002"
+               "name" : "#002 [P5=63 P6=32]"
             },
             {
-               "y" : 58,
+               "name" : "#003 [P5=32 P6=26]",
                "drilldown" : "003",
-               "name" : "#003 [P5=32 P6=26]"
+               "y" : 58
             },
             {
-               "name" : "#004 [P5=46 P6=29]",
+               "y" : 75,
                "drilldown" : "004",
-               "y" : 75
+               "name" : "#004 [P5=46 P6=29]"
             },
             {
-               "name" : "#005 [P5=30 P6=18]",
                "drilldown" : "005",
-               "y" : 48
+               "y" : 50,
+               "name" : "#005 [P5=30 P6=20]"
             }
-         ],
-         "colorByPoint" : "true"
+         ]
       }
    ],
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "enabled" : 1,
-            "format" : "{point.y}"
-         },
-         "borderWidth" : 0
-      }
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge Language"
-   },
-   "tooltip" : {
-      "followPointer" : "true",
-      "pointFormat" : "<span style=\"color:{point.color}\">{point.name}</span>: <b>{point.y:f}</b><br/>",
-      "headerFormat" : "<span style=\"font-size:11px\"></span>"
-   },
-   "yAxis" : {
-      "title" : {
-         "text" : "Total Solutions"
-      }
-   },
-   "subtitle" : {
-      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-04-28 17:19:44 GMT"
-   },
    "drilldown" : {
       "series" : [
          {
-            "id" : "001",
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -71,10 +77,9 @@
                   37
                ]
             ],
-            "name" : "001"
+            "id" : "001"
          },
          {
-            "name" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -85,11 +90,11 @@
                   32
                ]
             ],
+            "name" : "002",
             "id" : "002"
          },
          {
             "id" : "003",
-            "name" : "003",
             "data" : [
                [
                   "Perl 5",
@@ -99,10 +104,11 @@
                   "Perl 6",
                   26
                ]
-            ]
+            ],
+            "name" : "003"
          },
          {
-            "name" : "004",
+            "id" : "004",
             "data" : [
                [
                   "Perl 5",
@@ -113,10 +119,9 @@
                   29
                ]
             ],
-            "id" : "004"
+            "name" : "004"
          },
          {
-            "id" : "005",
             "name" : "005",
             "data" : [
                [
@@ -125,19 +130,14 @@
                ],
                [
                   "Perl 6",
-                  18
+                  20
                ]
-            ]
+            ],
+            "id" : "005"
          }
       ]
    },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "chart" : {
-      "type" : "column"
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-04-28 17:32:40 GMT"
    }
 }
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index 81cd51432c..03e08b4d91 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -1,7 +1,25 @@
 {
+   "tooltip" : {
+      "followPointer" : "true",
+      "pointFormat" : "<span style=\"color:{point.color}\">{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Score"
+      }
+   },
    "series" : [
       {
-         "name" : "Perl Weekly Challenge Leaders",
          "data" : [
             {
                "y" : 48,
@@ -9,84 +27,84 @@
                "drilldown" : "Laurent