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