#!/usr/local/bin/perl
my %wife{"Kate"} = ["Reiko", "Kasumi", "Mika", "Saki"];

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