- Added solutions by Guillermo Ramos.

11 files changed, 1058 insertions, 870 deletions

diff --git a/challenge-022/guillermo-ramos/perl5/ch-1.pl b/challenge-022/guillermo-ramos/perl5/ch-1.pl
new file mode 100644
index 0000000000..f6b2de4b1d
--- /dev/null
+++ b/challenge-022/guillermo-ramos/perl5/ch-1.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+#
+# Write a script to print first 10 Sexy Prime Pairs. Sexy primes are prime
+# numbers that differ from each other by 6. For example, the numbers 5 and 11
+# are both sexy primes, because 11 - 5 = 6. The term “sexy prime” is a pun
+# stemming from the Latin word for six: sex. For more information, please
+# checkout wiki page.
+#
+# (https://en.wikipedia.org/wiki/Sexy_prime).
+################################################################################
+
+use strict;
+use warnings;
+
+use List::Util qw<any>;
+
+my $MAX_SEXY = 10;
+
+my @primes = ();
+my @sexy;
+my $p = 2;
+
+while (@sexy < $MAX_SEXY*2) {
+    unless (any { $p % $_ == 0 } @primes) {
+        push @primes, $p;
+        push @sexy, $primes[-2], $primes[-1]
+            if @primes > 1 && $primes[-1] == $primes[-2] + 6;
+    }
+    $p++;
+}
+
+foreach my $i (0 .. @sexy/2-1) {
+    printf "%s-%s\n", $sexy[$i*2], $sexy[$i*2+1];
+}
diff --git a/challenge-022/guillermo-ramos/perl5/ch-2.pl b/challenge-022/guillermo-ramos/perl5/ch-2.pl
new file mode 100644
index 0000000000..22a49d87dd
--- /dev/null
+++ b/challenge-022/guillermo-ramos/perl5/ch-2.pl
@@ -0,0 +1,139 @@
+#!/usr/bin/env perl
+#
+# Write a script to implement Lempel–Ziv–Welch (LZW) compression algorithm. The
+# script should have method to encode/decode algorithm. The wiki page explains
+# the compression algorithm very nicely.
+#
+# (https://en.wikipedia.org/wiki/Lempel%E2%80%93Ziv%E2%80%93Welch).
+################################################################################
+
+use strict;
+use warnings;
+
+################################################################################
+# Naïve implementation of a bidirectional map
+my $MAX_BIT_WIDTH = 12;
+sub bimap_new {
+    return {binwidth=>0, sym2bin=>{}, bin2sym=>{}};
+}
+sub bimap_extend {
+    my ($dict, $binwidth) = @_;
+    return unless $binwidth > $dict->{binwidth} && $binwidth <= $MAX_BIT_WIDTH;
+    my ($sym2bin, $bin2sym) = @$dict{'sym2bin', 'bin2sym'};
+    foreach my $sym (keys %$sym2bin) {
+        my $bin = $sym2bin->{$sym};
+        delete $bin2sym->{$bin};
+        $bin = "0" x ($binwidth - length $bin) . $bin;
+        $sym2bin->{$sym} = $bin;
+        $bin2sym->{$bin} = $sym;
+    }
+    $dict->{binwidth} = $binwidth;
+}
+sub bimap_insert {
+    my ($dict, $sym) = @_;
+    my ($sym2bin, $bin2sym) = @$dict{'sym2bin', 'bin2sym'};
+    return $dict->{sym2bin}{$sym} if exists $dict->{sym2bin}{$sym};
+    my $ord = keys %{$dict->{sym2bin}}; # Ordinal of symbol to insert in decimal
+    my $bin = sprintf "%b", $ord; # ... and in binary (string of 1/0s)
+    return unless length $bin <= $MAX_BIT_WIDTH;
+    $sym2bin->{$sym} = $bin; # Update symbol -> binary mapping
+    $bin2sym->{$bin} = $sym; # Update binary -> symbol mapping
+
+    # Extend with left zeroes the previously inserted binaries
+    bimap_extend($dict, length($bin));
+
+    return $bin;
+}
+
+
+################################################################################
+# Default dictionary
+my $DEFAULT_DICT = bimap_new();
+my $STOP = '';
+bimap_insert($DEFAULT_DICT, $_) foreach (map(chr, 1..254), $STOP);
+
+sub binary_encode {
+    my $text = shift;
+    my $binary = pack("B*", $text);
+    return $binary;
+}
+
+sub binary_decode {
+    my $binary = shift;
+    my $text = unpack("B*", $binary);
+    return $text
+}
+
+sub lzw_encode {
+    my $dict = shift;
+    my $input = shift;
+    my ($sym2bin, $bin2sym) = @{$dict}{'sym2bin', 'bin2sym'};
+
+    my $out = '';
+    my $w = '';
+    foreach my $i (0 .. length($input)-1) {
+        my $char = substr($input, $i, 1);
+        my $dict_seq = $w . $char;
+        unless (exists $sym2bin->{$dict_seq}) {
+            $out .= $sym2bin->{$w};
+            bimap_insert($dict, $dict_seq);
+            $w = '';
+        }
+        $w .= $char;
+    }
+    $out .= $sym2bin->{$w} . $sym2bin->{$STOP};
+    return binary_encode($out);
+}
+
+sub lzw_decode {
+    my $dict = shift;
+    my $input = binary_decode(shift());
+    my ($sym2bin, $bin2sym) = @{$dict}{'sym2bin', 'bin2sym'};
+
+    my $out = '';
+    my $lastsym;
+    while ($input) {
+        my $sym;
+        foreach my $bin (keys %$bin2sym) {
+            if ($input =~ /^$bin/) {
+                $sym = $bin2sym->{$bin};
+                $input = substr($input, $dict->{binwidth});
+                last;
+            }
+        }
+        unless (defined $sym) {
+            $sym = $lastsym . substr($lastsym, 0, 1);
+            $input = substr($input, $dict->{binwidth});
+        }
+        $out .= $sym;
+        if ($sym eq $STOP) {
+            return $out;
+        }
+        return $out if $sym eq $STOP;
+        if (defined $lastsym) {
+            my $bin = bimap_insert($dict, $lastsym . $sym);
+            if ((log($dict->{binwidth}) / log(2)) =~ /^\d+$/) {
+                bimap_extend($dict, $dict->{binwidth}+1);
+            }
+        }
+        $lastsym = $sym;
+    }
+}
+
+sub usage {
+    die "Usage: $0 -e | --encode | -d | --decode\n";
+}
+my $mode = shift || usage;
+if ($mode eq '-e' || $mode eq '--encode') {
+    my $input = join "", <>;
+    my $out = lzw_encode($DEFAULT_DICT, $input);
+    my $comprate = 100 * length($out) / length($input);
+    printf STDERR "Compressed to %.2f%% of original size\n", $comprate;
+    print $out;
+} elsif ($mode eq '-d' || $mode eq '--decode') {
+    my $input = join "", <>;
+    my $out = lzw_decode($DEFAULT_DICT, $input);
+    print $out;
+} else {
+    usage;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 0c507fcb71..e00cf4f56b 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -2,57 +2,88 @@
    "legend" : {
       "enabled" : 0
    },
+   "tooltip" : {
+      "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/>",
+      "followPointer" : 1
+   },
+   "title" : {
+      "text" : "Perl Weekly Challenge - 022"
+   },
    "yAxis" : {
       "title" : {
          "text" : "Total Solutions"
       }
    },
+   "chart" : {
+      "type" : "column"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "subtitle" : {
+      "text" : "[Champions: 18] Last updated at 2019-08-25 22:05:53 GMT"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
+   },
    "series" : [
       {
          "data" : [
             {
-               "drilldown" : "Adam Russell",
+               "name" : "Adam Russell",
                "y" : 3,
-               "name" : "Adam Russell"
+               "drilldown" : "Adam Russell"
             },
             {
                "drilldown" : "Andrezgz",
-               "name" : "Andrezgz",
-               "y" : 1
+               "y" : 1,
+               "name" : "Andrezgz"
             },
             {
-               "name" : "Athanasius",
+               "drilldown" : "Athanasius",
                "y" : 4,
-               "drilldown" : "Athanasius"
+               "name" : "Athanasius"
             },
             {
-               "drilldown" : "Daniel Mantovani",
+               "y" : 1,
                "name" : "Daniel Mantovani",
-               "y" : 1
+               "drilldown" : "Daniel Mantovani"
             },
             {
-               "name" : "Duane Powell",
                "y" : 2,
+               "name" : "Duane Powell",
                "drilldown" : "Duane Powell"
             },
             {
-               "y" : 2,
                "name" : "E. Choroba",
+               "y" : 2,
                "drilldown" : "E. Choroba"
             },
             {
+               "drilldown" : "Guillermo Ramos",
+               "name" : "Guillermo Ramos",
+               "y" : 2
+            },
+            {
                "drilldown" : "Joelle Maslak",
-               "y" : 4,
-               "name" : "Joelle Maslak"
+               "name" : "Joelle Maslak",
+               "y" : 4
             },
             {
                "drilldown" : "Kevin Colyer",
-               "y" : 2,
-               "name" : "Kevin Colyer"
+               "name" : "Kevin Colyer",
+               "y" : 2
             },
             {
-               "y" : 1,
                "name" : "Kian-Meng Ang",
+               "y" : 1,
                "drilldown" : "Kian-Meng Ang"
             },
             {
@@ -61,9 +92,9 @@
                "drilldown" : "Laurent Rosenfeld"
             },
             {
+               "drilldown" : "Mark Senn",
                "name" : "Mark Senn",
-               "y" : 2,
-               "drilldown" : "Mark Senn"
+               "y" : 2
             },
             {
                "drilldown" : "Ozzy",
@@ -72,18 +103,18 @@
             },
             {
                "drilldown" : "Roger Bell West",
-               "name" : "Roger Bell West",
-               "y" : 4
+               "y" : 4,
+               "name" : "Roger Bell West"
             },
             {
-               "drilldown" : "Ruben Westerberg",
                "name" : "Ruben Westerberg",
-               "y" : 4
+               "y" : 4,
+               "drilldown" : "Ruben Westerberg"
             },
             {
                "drilldown" : "Simon Proctor",
-               "name" : "Simon Proctor",
-               "y" : 2
+               "y" : 2,
+               "name" : "Simon Proctor"
             },
             {
                "drilldown" : "Steven Wilson",
@@ -100,25 +131,11 @@
          "name" : "Perl Weekly Challenge - 022"
       }
    ],
-   "subtitle" : {
-      "text" : "[Champions: 17] Last updated at 2019-08-25 17:38:11 GMT"
-   },
-   "plotOptions" : {
-      "series" : {
-         "dataLabels" : {
-            "format" : "{point.y}",
-            "enabled" : 1
-         },
-         "borderWidth" : 0
-      }
-   },
-   "title" : {
-      "text" : "Perl Weekly Challenge - 022"
-   },
    "drilldown" : {
       "series" : [
          {
             "name" : "Adam Russell",
+            "id" : "Adam Russell",
             "data" : [
                [
                   "Perl 5",
@@ -128,18 +145,17 @@
                   "Blog",
                   1
                ]
-            ],
-            "id" : "Adam Russell"
+            ]
          },
          {
-            "id" : "Andrezgz",
             "name" : "Andrezgz",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "id" : "Andrezgz"
          },
          {
             "name" : "Athanasius",
@@ -156,37 +172,46 @@
             "id" : "Athanasius"
          },
          {
+            "name" : "Daniel Mantovani",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "name" : "Daniel Mantovani",
             "id" : "Daniel Mantovani"
          },
          {
+            "name" : "Duane Powell",
+            "id" : "Duane Powell",
+            "data" : [
+               [
+                  "Perl 5",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "E. Choroba",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "Duane Powell",
-            "id" : "Duane Powell"
+            "name" : "E. Choroba"
          },
          {
+            "name" : "Guillermo Ramos",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
             ],
-            "name" : "E. Choroba",
-            "id" : "E. Choroba"
+            "id" : "Guillermo Ramos"
          },
          {
-            "id" : "Joelle Maslak",
             "name" : "Joelle Maslak",
             "data" : [
                [
@@ -197,31 +222,30 @@
                   "Perl 6",
                   2
                ]
-            ]
+            ],
+            "id" : "Joelle Maslak"
          },
          {
             "name" : "Kevin Colyer",
+            "id" : "Kevin Colyer",
             "data" : [
                [
                   "Perl 5",
                   2
                ]
-            ],
-            "id" : "Kevin Colyer"
+            ]
          },
          {
-            "name" : "Kian-Meng Ang",
+            "id" : "Kian-Meng Ang",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
             ],
-            "id" : "Kian-Meng Ang"
+            "name" : "Kian-Meng Ang"
          },
          {
-            "id" : "Laurent Rosenfeld",
-            "name" : "Laurent Rosenfeld",
             "data" : [
                [
                   "Perl 5",
@@ -235,10 +259,11 @@
                   "Blog",
                   1
                ]
-            ]
+            ],
+            "id" : "Laurent Rosenfeld",
+            "name" : "Laurent Rosenfeld"
          },
          {
-            "id" : "Mark Senn",
             "data" : [
                [
                   "Perl 6",
@@ -249,20 +274,21 @@
                   1
                ]
             ],
+            "id" : "Mark Senn",
             "name" : "Mark Senn"
          },
          {
+            "name" : "Ozzy",
             "data" : [
                [
                   "Perl 6",
                   1
                ]
             ],
-            "name" : "Ozzy",
             "id" : "Ozzy"
          },
          {
-            "id" : "Roger Bell West",
+            "name" : "Roger Bell West",
             "data" : [
                [
                   "Perl 5",
@@ -277,9 +303,11 @@
                   1
                ]
             ],
-            "name" : "Roger Bell West"
+            "id" : "Roger Bell West"
          },
          {
+            "name" : "Ruben Westerberg",
+            "id" : "Ruben Westerberg",
             "data" : [
                [
                   "Perl 5",
@@ -289,31 +317,30 @@
                   "Perl 6",
                   2
                ]
-            ],
-            "name" : "Ruben Westerberg",
-            "id" : "Ruben Westerberg"
+            ]
          },
          {
             "name" : "Simon Proctor",
+            "id" : "Simon Proctor",
             "data" : [
                [
                   "Perl 6",
                   2
                ]
-            ],
-            "id" : "Simon Proctor"
+            ]
          },
          {
             "id" : "Steven Wilson",
-            "name" : "Steven Wilson",
             "data" : [
                [
                   "Perl 5",
                   1
                ]
-            ]
+            ],
+            "name" : "Steven Wilson"
          },
          {
+            "name" : "Yet Ebreo",
             "data" : [
                [
                   "Perl 5",
@@ -328,20 +355,8 @@
                   1
                ]
             ],
-            "name" : "Yet Ebreo",
             "id" : "Yet Ebreo"
          }
       ]
-   },
-   "xAxis" : {
-      "type" : "category"
-   },
-   "tooltip" : {
-      "followPointer" : 1,
-      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
-      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
-   },
-   "chart" : {
-      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 4f006997cd..a008cba48a 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,4 +1,31 @@
 {
+   "subtitle" : {
+      "text" : "Last updated at 2019-08-25 22:06:05 GMT"
+   },
+   "xAxis" : {
+      "labels" : {
+         "style" : {
+            "fontFamily" : "Verdana, sans-serif",
+            "fontSize" : "13px"
+         }
+      },
+      "type" : "category"
+   },
+   "tooltip" : {
+      "pointFormat" : "<b>{point.y:.0f}</b>"
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "yAxis" : {
+      "min" : 0,
+      "title" : {
+         "text" : null
+      }
+   },
+   "chart" : {
+      "type" : "column"
+   },
    "series" : [
       {
          "name" : "Contributions",
@@ -9,7 +36,7 @@
             ],
             [
                "Perl 5",
-               910
+               912
             ],
             [
                "Perl 6",
@@ -17,47 +44,20 @@
             ]
          ],
          "dataLabels" : {
-            "rotation" : -90,
+            "y" : 10,
             "style" : {
                "fontFamily" : "Verdana, sans-serif",
                "fontSize" : "13px"
             },
-            "align" : "right",
             "color" : "#FFFFFF",
-            "y" : 10,
-            "enabled" : "true",
-            "format" : "{point.y:.0f}"
+            "format" : "{point.y:.0f}",
+            "rotation" : -90,
+            "align" : "right",
+            "enabled" : "true"
          }
       }
    ],
    "title" : {
       "text" : "Perl Weekly Challenge Contributions - 2019"
-   },
-   "tooltip" : {
-      "pointFormat" : "<b>{point.y:.0f}</b>"
-   },
-   "yAxis" : {
-      "min" : 0,
-      "title" : {
-         "text" : null
-      }
-   },
-   "legend" : {
-      "enabled" : "false"
-   },
-   "xAxis" : {
-      "labels" : {
-         "style" : {
-            "fontSize" : "13px",
-            "fontFamily" : "Verdana, sans-serif"
-         }
-      },
-      "type" : "category"
-   },
-   "subtitle" : {
-      "text" : "Last updated at 2019-08-25 17:38:21 GMT"
-   },
-   "chart" : {
-      "type" : "column"
    }
 }
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index c7035bad73..7b21d16ae1 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,7 +1,160 @@
 {
+   "subtitle" : {
+      "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-25 22:06:05 GMT"
+   },
+   "tooltip" : {
+      "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
+      "headerFormat" : "<span style=\"font-size:11px\"></span>",
+      "followPointer" : "true"
+   },
+   "xAxis" : {
+      "type" : "category"
+   },
+   "yAxis" : {
+      "title" : {
+         "text" : "Total Solutions"
+      }
+   },
+   "plotOptions" : {
+      "series" : {
+         "borderWidth" : 0,
+         "dataLabels" : {
+            "enabled" : 1,
+            "format" : "{point.y}"
+         }
+      }
+   },
+   "legend" : {
+      "enabled" : "false"
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "series" : [
+      {
+         "data" : [
+            {
+               "name" : "#001",
+               "drilldown" : "001",
+               "y" : 127
+            },
+            {
+               "name" : "#002",
+               "drilldown" : "002",
+               "y" : 104
+            },
+            {
+               "y" : 66,
+               "name" : "#003",
+               "drilldown" : "003"
+            },
+            {
+               "drilldown" : "004",
+               "name" : "#004",
+               "y" : 84
+            },
+            {
+               "y" : 66,
+               "drilldown" : "005",
+               "name" : "#005"
+            },
+            {
+               "name" : "#006",
+               "drilldown" : "006",
+               "y" : 47
+            },
+            {
+               "y" : 55,
+               "drilldown" : "007",
+               "name" : "#007"
+            },
+            {
+               "name" : "#008",
+               "drilldown" : "008",
+               "y" : 68
+            },
+            {
+               "y" : 66,
+               "name" : "#009",
+               "drilldown" : "009"
+            },
+            {
+               "y" : 59,
+               "name" : "#010",
+               "drilldown" : "010"
+            },
+            {
+               "y" : 78,
+               "drilldown" : "011",
+               "name" : "#011"
+            },
+            {
+               "name" : "#012",
+               "drilldown" : "012",
+               "y" : 82
+            },
+            {
+               "name" : "#013",
+               "drilldown" : "013",
+               "y" : 75
+            },
+            {
+               "drilldown" : "014",
+               "name" : "#014",
+               "y" : 95
+            },
+            {
+               "y" : 91,
+               "name" : "#015",
+               "drilldown" : "015"
+            },
+            {
+               "y" : 65,
+               "name" : "#016",
+               "drilldown" : "016"
+            },
+            {
+               "y" : 78,
+               "name" : "#017",
+               "drilldown" : "017"
+            },
+            {
+               "y" : 76,
+               "drilldown" : "018",
+               "name" : "#018"
+            },
+            {
+               "y" : 95,
+               "drilldown" : "019",
+               "name" : "#019"
+            },
+            {
+               "y" : 95,
+               "drilldown" : "020",
+               "name" : "#020"
+            },
+            {
+               "name" : "#021",
+               "drilldown" : "021",
+               "y" : 66
+            },
+            {
+               "drilldown" : "022",
+               "name" : "#022",
+               "y" : 46
+            }
+         ],
+         "colorByPoint" : "true",
+         "name" : "Perl Weekly Challenge Languages"
+      }
+   ],
+   "title" : {
+      "text" : "Perl Weekly Challenge Language"
+   },
    "drilldown" : {
       "series" : [
          {
+            "name" : "001",
             "data" : [
                [
                   "Perl 5",
@@ -16,10 +169,11 @@
                   10
                ]
             ],
-            "id" : "001",
-            "name" : "001"
+            "id" : "001"
          },
          {
+            "name" : "002",
+            "id" : "002",
             "data" : [
                [
                   "Perl 5",
@@ -33,12 +187,9 @@
                   "Blog",
                   9
                ]
-            ],
-            "id" : "002",
-            "name" : "002"
+            ]
          },
          {
-            "name" : "003",
             "id" : "003",
             "data" : [
                [
@@ -53,7 +204,8 @@
                   "Blog",
                   8
                ]
-            ]
+            ],
+            "name" : "003"
          },
          {
             "data" : [
@@ -74,6 +226,8 @@
             "name" : "004"
          },
          {
+            "name" : "005",
+            "id" : "005",
             "data" : [
                [
                   "Perl 5",
@@ -87,12 +241,9 @@
                   "Blog",
                   11
                ]
-            ],
-            "name" : "005",
-            "id" : "005"
+            ]
          },
          {
-            "id" : "006",
             "name" : "006",
             "data" : [
                [
@@ -107,11 +258,11 @@
                   "Blog",
                   6
                ]
-            ]
+            ],
+            "id" : "006"
          },
          {
             "name" : "007",
-            "id" : "007",
             "data" : [
                [
                   "Perl 5",
@@ -125,9 +276,11 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "id" : "007"
          },
          {
+            "id" : "008",
             "data" : [
                [
                   "Perl 5",
@@ -142,12 +295,11 @@
                   10
                ]
             ],
-            "id" : "008",
             "name" : "008"
          },
          {
-            "id" : "009",
             "name" : "009",
+            "id" : "009",
             "data" : [
                [
                   "Perl 5",
@@ -164,6 +316,7 @@
             ]
          },
          {
+            "id" : "010",
             "data" : [
                [
                   "Perl 5",
@@ -178,12 +331,11 @@
                   10
                ]
             ],
-            "name" : "010",
-            "id" : "010"
+            "name" : "010"
          },
          {
-            "id" : "011",
             "name" : "011",
+            "id" : "011",
             "data" : [
                [
                   "Perl 5",
@@ -200,8 +352,8 @@
             ]
          },
          {
-            "id" : "012",
             "name" : "012",
+            "id" : "012",
             "data" : [
                [
                   "Perl 5",
@@ -219,7 +371,6 @@
          },
          {
             "id" : "013",
-            "name" : "013",
             "data" : [
                [
                   "Perl 5",
@@ -233,7 +384,8 @@
                   "Blog",
                   12
                ]
-            ]
+            ],
+            "name" : "013"
          },
          {
             "name" : "014",
@@ -254,6 +406,7 @@
             ]
          },
          {
+            "name" : "015",
             "data" : [
                [
                   "Perl 5",
@@ -268,10 +421,10 @@
                   13
                ]
             ],
-            "id" : "015",
-            "name" : "015"
+            "id" : "015"
          },
          {
+            "name" : "016",
             "data" : [
                [
                   "Perl 5",
@@ -286,12 +439,9 @@
                   11
                ]
             ],
-            "name" : "016",
             "id" : "016"
          },
          {
-            "name" : "017",
-            "id" : "017",
             "data" : [
                [
                   "Perl 5",
@@ -305,9 +455,13 @@
                   "Blog",
                   11
                ]
-            ]
+            ],
+            "id" : "017",
+            "name" : "017"
          },
          {
+            "name" : "018",
+            "id" : "018",
             "data" : [
                [
                   "Perl 5",
@@ -321,11 +475,11 @@
                   "Blog",
                   14
                ]
-            ],
-            "id" : "018",
-            "name" : "018"
+            ]
          },
          {
+            "name" : "019",
+            "id" : "019",
             "data" : [
                [
                   "Perl 5",
@@ -339,13 +493,10 @@
                   "Blog",
                   13
                ]
-            ],
-            "name" : "019",
-            "id" : "019"
+            ]
          },
          {
             "id" : "020",
-            "name" : "020",
             "data" : [
                [
                   "Perl 5",
@@ -359,10 +510,10 @@
                   "Blog",
                   13
                ]
-            ]
+            ],
+            "name" : "020"
          },
          {
-            "name" : "021",
             "id" : "021",
             "data" : [
                [
@@ -377,15 +528,14 @@
                   "Blog",
                   9
                ]
-            ]
+            ],
+            "name" : "021"
          },
          {
-            "name" : "022",
-            "id" : "022",
             "data" : [
                [
                   "Perl 5",
-                  24
+                  26
                ],
                [
                   "Perl 6",
@@ -395,160 +545,10 @@
                   "Blog",
                   5
                ]
-            ]
+            ],
+            "id" : "022",
+            "name" : "022"
          }
       ]
-   },
-   "series" : [
-      {
-         "colorByPoint" : "true",
-         "name" : "Perl Weekly Challenge Languages",
-         "data" : [
-            {
-               "y" : 127,
-               "drilldown" : "001",
-               "name" : "#001"
-            },