#!/usr/bin/perl -wuse strict; my %where = ( G => "Dallas", L => "Exeter", I => "Reading", S => "Oregon");delete $where{L};print "Lucy lives in $where{L}\n";