#! perl -slw
use strict;
use Data::Dumper;

my %h;
$h{ $_ } = [ 1 .. 10 ] for 'aaaa' .. 'zzzz';
print Dumper \%h;