#!/usr/bin/perl -w

use strict;
 
my %where = (
        G     => "Dallas",
        L     => "Exeter",
        I     => "Reading",
        S     => "Oregon"
);

delete $where{L};
print "Lucy lives in $where{L}\n";