my $lamb;
$lamb->{data}[0] = 'wolf';
my $mary = "Little Rabbit Foo Foo";
my $template = '$mary had a little $lamb->{data}[0].';
$text = eval qq{"$template"};
print $text;