use strict;
my %hash=qw/camel desert dolphin water/;
eval("print qq{A camel lives in the $hash{'camel'}, as opposed to a dolphin, who lives in the $hash{'dolphin'}\n};");