Perl 关联数组

#!perl
use strict;
use warnings;

my $array = {
    "A" =>  [1, 2, 3, 4, 5],
    "B" =>  [6, 7, 8, 9, 0],
    "C" =>  [1, 1, 1, 1, 1]
};

foreach my $key(keys %$array) {
    my $value = $array->{$key};

    if(defined($value)) {
        foreach my $value(@$value) {
            print "$value " 
        }
    }
    print "\n";
}