Retire a document Dokument deaktivieren Remove a document from the knowledge base Dokument aus der Knowledge Base entfernen Promote document retirement Dokument deaktivieren Document Expired Dokument abgelaufen #### use strict; use warnings; open (FILE, "extract_tab.txt") or die "$!\n"; my %hash; while (my $line = ) { chomp($line); my ($enu, $deu) = split /\t/, $line; $hash{$enu} = $deu; } for my $key (keys %hash) { print "$key\n"; } for my $value (values %hash) { print "$value\n"; } #### #my %seen; for my $key (keys %hash) { my $value_key = "@{[values %{$hash{$key}}]}"; #print "$value_key\n"; }