Select Code to Download

push @client_list,
    Client::Data::->new(name => $name, address => $addr, city => $city
+);

my $wanted_client = 'Mary Smith';

for my $client (@client_data) {
    if ($client->name eq $wanted_client) {
...
        last;
    }
}

print "${wanted_client}'s city is ", $client_data_for{$wanted_client}-
+>city;