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