use strict;
use warnings;

use Tie::IxHash;
tie my %where, 'Tie::IxHash';

%where = (
    Gary     => "Dallas",
    Lucy     => "Exeter",
    Ian      => "Reading",
    Samantha => "Oregon"
);

for ( keys %where ) {
    print "$_ lives in $where{$_}\n";
}

##</code><code>##

perldoc -q hash