#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;


my %petsounds = (
    "cat" => "meow",
    "dog" => "woof",
    "snake" => "hiss"
);


print "The cat goes " . $petsounds{"cat"} . ".\n";


$petsounds{"mouse"} = "squeak!";
$petsounds{"dog"} = "arf!";


delete($petsounds{"cat"});


print "The mouse goes " . $petsounds{"mouse"} . ".\n";


print Dumper(\%petsounds) . "\n";


1;
__END__