#!/usr/bin/perl -w
use strict;

my @chars = ("A".."Z");
my @nums = (0..9);

my %hash = (
    nums => \@nums,
    chars => \@chars
);

print $hash{'nums'}->[1];