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