#!/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_fife{"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];