#!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
use warnings;
use utf8;
my %charlist;
+$charlist{table}->{abc} = ['A'..'Z', 'a'..'z'];
+
my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {