What exactly do you want to do? Is something like this what you are looking for?
use strict;
my %hash=qw/camel desert dolphin water/;
eval("print qq{A camel lives in the $hash{'camel'}, as opposed to a do
+lphin, who lives in the $hash{'dolphin'}\n};");