Select Code to Download

my $rd = "\n";
my $fd = "\t";
...
    print join $fd, $_, @{$db{$_}};
    print $rd;
}

my $rd = "\n";
my $fd = "\t";
...
worde        stringh    stringi    stringj
worda    stringa    stringb    stringc
wordb    stringd    stringe