#!c:\perl\bin\perl.exe

use MLDBM qw(DB_File Storable);
use Data::Dumper; 

my $dbfile = "test.db";
my $txtfile = "kw2005-02.txt";
my $zeile;
my $zeitraum;
my $suchbegriff;
my $anzahl;
my @spalten;
my %hash;
my %uniq;

tie %hash, 'MLDBM', $dbfile or die "Can&´t open $dbfile: $!\n";

open(INPUT, "< $txtfile") or die "Kann $txtfile nicht öffnen $!\n";
while(<INPUT>){
    chomp;    
    $zeile = $_;
    ($suchbegriff,$anzahl) = split("\t",$zeile);
    
    $zeitraum = $txtfile;
    $zeitraum =~ s/kw//;
    $zeitraum =~ s/.txt//;
    
    $uniq{ $zeitraum } = $anzahl;
    $hash{ $suchbegriff } = \%uniq;
    
}

print Dumper(\%hash);

untie %hash;