Select Code to Download

#!/usr/bin/perl

...
my %hash = map { /\D/ ? ($_ => $ref = []) : (push @$ref, $_) x 0 } @ar
+ray;

pp \%hash;

{ a => [1 .. 4], b => [6, 7, 8] }