Select Code to Download

use Storable qw(nfreeze thaw);
$scalar = nfreeze(\%hash);
%hash_copy = %{ thaw($scalar) };

use Tie::RDBM;
tie %h,Tie::RDBM,'mysql:test',{table=>'Demo',create=>1,autocommit=>0};
$h{'key1'} = 'Some data here';
...
print $h{'key3'}->{complex}->[0];
tied(%h)->commit;
untie %h;