Select Code to Download

use warnings;
use strict;
...
print "item> $_\n" for @{ $a };

untie @{ $a };

sub db_ref {
    my $type = shift() || "HASH"; # "HASH"  = DB_HASH
...

    return $db_ref;
}