Help for this page
use warnings; use strict; ... print "item> $_\n" for @{ $a }; untie @{ $a };
sub db_ref { my $type = shift() || "HASH"; # "HASH" = DB_HASH ... return $db_ref; }