my $pet = 'dog';
my %pet_name;
$pet_name{$pet} = 'Rover';

print "$pet_name{dog}\n";