#!/usr/local/bin/perl
#use strict;
#use warnings;

#Scalar Reference
$wife{"Kate"} = ["Misaki", "Mai", "Keiko", "Mika"];
print $wife{"Kate"}[0]; 
print $wife{"Kate"}[1]; 
print $wife{"Kate"}[2]; 
print $wife{"Kate"}[3]; 

#Multidimensional array
$kids_of_wife{"Kate} = {
"Misaki"=>["Ichiro", "Jiro", "Saburo", "Shiro"],
"Mai"=>["Gon", "Bes", "Taiji"],
"Keiko"=>["Sanji", "Yonji", "Goji"],
"Mika"=>["Toto", "Kihahchi"];
};

print $kids_of_wife{"Kate"}{Misaki}[0]; 
print $kids_of_wife{"Kate"}{Mai}[1]; 
print $kids_of_wife{"Kate"}{Keiko}[2]; 
print $kids_of_wife{"Kate"}{Mika}[3];