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

my $wife{"Kate"} = ["Reiko", "Kasumi", "Mika", "Saki"];

print $wife{"Kate"}[0];