tie my %tied, 'NewHash';
$tied{ num } = 12;
print $tied{ num }, "\n";