#!/usr/bin/perl -w
#Title: final_problem2.pl

my $h={
	"sea otter"=>"Perl for System Administrators",
	"llama"=>"Learning Perl",
	"owell"=>"Mastering Regular Expressions",
	"camel"=>	"Programming Perl",
	"bighorn sheep"=>"Perl Cookbook"};

foreach my $animal ( keys %$h){
        print "Animal on cover of $h->{$animal}:\t$animal\n";
}