Dictionary (also called Hashes, Associative Array or Maps) with Single Key and Multiple Values Example in Perl

multiple_value_dictionary.pl

%letters = (
    "a" => ["Apple", "Aeroplane"],
    "b" => ["Bat", "Banana", "Basket"],
    "c" => ["Cat", "Carpet"],
);
# loop through just the keys
for my $key (sort keys %letters){
    $value = $letters{$key};
    $length = @{$value};
    print "Key: $key \n";
    print "Value: @{$value} \n";
    print "Length: $length \n";
}

print "\n";

# loop through the both the keys and the values 
for my $key (sort keys %letters){
    $value = $letters{$key};
    @length = @{$value};
    for my $val (@length){
        print "Key: $key, Value: $val \n";   
    }
}

output.txt

Key: a
Value: Apple Aeroplane
Length: 2
Key: b
Value: Bat Banana Basket
Length: 3
Key: c
Value: Cat Carpet
Length: 2

Key: a, Value: Apple
Key: a, Value: Aeroplane
Key: b, Value: Bat
Key: b, Value: Banana
Key: b, Value: Basket
Key: c, Value: Cat
Key: c, Value: Carpet