#!/usr/bin/perl
use strict;
use warnings;
# my %array = a.a.a.a => "my name",
# b.b.b.b => "my home",
# c.c.c.c => "my city";
#Associate arrays are called Hash in Perl
my %hash = (
'a.a.a.a' => "my name",
'b.b.b.b' => "my home",
'c.c.c.c' => "my city"
);
#To access value of a key you do $hash{$key}, so to access b.b.b.b
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKIyBteSAlYXJyYXkgPSBhLmEuYS5hID0+ICJteSBuYW1lIiwKIyAgICAgICBiLmIuYi5iID0+ICJteSBob21lIiwKIyAgICAgICBjLmMuYy5jID0+ICJteSBjaXR5IjsKCiNBc3NvY2lhdGUgYXJyYXlzIGFyZSBjYWxsZWQgSGFzaCBpbiBQZXJsCgpteSAlaGFzaCA9ICgKCQknYS5hLmEuYScgPT4gIm15IG5hbWUiLAoJCSdiLmIuYi5iJyA9PiAibXkgaG9tZSIsCgkJJ2MuYy5jLmMnID0+ICJteSBjaXR5IgoJKTsKCiNUbyBhY2Nlc3MgdmFsdWUgb2YgYSBrZXkgeW91IGRvICRoYXNoeyRrZXl9LCBzbyB0byBhY2Nlc3MgYi5iLmIuYgoKcHJpbnQgJGhhc2h7J2IuYi5iLmInfTs=