Select Code to Download

my $X = tie my %hash, 'DB_File', $filename;
my ($key, $value);
for (
...
) {
    ...
}