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