my $rd = "\n"; my $fd = "\t"; my %db; $db{worda}[0] = "stringa"; $db{worda}[1] = "stringb"; $db{worda}[2] = "stringc"; $db{wordb}[0] = "stringd"; $db{wordb}[1] = "stringe"; $db{wordc}[0] = "stringf"; $db{wordd}[0] = "stringg"; $db{worde}[1] = "stringh"; $db{worde}[2] = "stringi"; $db{worde}[3] = "stringj"; for (keys %db) { print join $fd, $_, @{$db{$_}}; print $rd; }