note
Athanasius
<p>It can be done using [doc://eval] even with <tt>strict</tt>:</p>
<code>
14:36 >perl -Mstrict -MData::Dump -wE "my $variable = 'name01'; eval qq[our %{$variable} = ( valorC => 'value03', valorD => 'value04', );]; eval qq[our %{$variable}; dd %{$variable},;];"
("valorD", "value04", "valorC", "value03")
14:36 >
</code>
<p><i>Why</i> you’d want to do it is, of course, another question altogether...</p>
<p>Hope that helps,</p>
<div class="pmsig"><div class="pmsig-968231">
<p>
<table width="100%">
<tr>
<td align="left">
Athanasius <font color="#008000"><</font>[href://http://www.biblegateway.com/passage/?search=John%203:16&version=NLV|<font color="#008000">°</font>]<font color="#008000">(((><</font> <i>contra mundum</i>
</td>
<td align="right">
[href://http://translate.google.com.au/#la/en/Iustus%20alius%20egestas%20vitae%2C%20eros%20Piratica%2C|<b>Iustus alius egestas vitae, eros Piratica,</b>]
</td>
</tr>
</table>
</p>
</div></div>
1007852
1007852