# Snippet 2c -- append after 2b
delete $alice{home};            # Delete Alice's home number **from her original hash**
delete $bob{home};              # Delete Bob's home number **from his orignal hash** too
delete $phonebook{Charlie};     # Let's not clutter the output

print Dumper \%phonebook;