Select Code to Download

#!/usr/bin/perl -w

...

undef $db;
untie $hash;

$hash{a_key} = { b_key => 2 };
$hash{a_key}{b_key} = 3;