And here - to make things complete - goes an example how to push values onto such an array stored in a hash:

use Data::Dumper;
my %hash;

for my $key ('A'..'C') {
    for my $value (1..3) {
        push @{$hash{$key}}, $value;
    }
}

print Dumper(\%hash);
[download]

-- Hofmator