Select Code to Download

$db->{test} = {};
$db->{test}->{fred} = [ 1 .. 10 ];
...
push( @{ $db->{test}->{fred} }, $_ ) for ( 1 .. 10 );
$db->{test}->{bill} = [];
push( @{ $db->{test}->{bill} }, $_ ) for ( 'a' .. 'z' );

#!c:/perl/bin/perl -w
use strict;
...

print Dumper $db;