$data{bar}{code} = 'print $foo;'
...
eval $data{bar}{code};

##</code><code>##

<data name="foo" value="hello" />
<prog>
  print $foo;
</prog>