[...]
my @files = ("kw2005-02.txt", "kw2005-03.txt", "kw2005-03.txt")
[...]

foreach my $file (@files) {    # Fuer jede File in @files
    open(INPUT, "< $file") or die "Kann $file nicht öffnen $!
";
    while(defined my $zeile = <INPUT>) {
         chomp $zeile;

        my ($suchbegriff,$anzahl) = split("\t",$zeile);
    
        my $zeitraum = $file;
        $zeitraum =~ s/kw//;
        $zeitraum =~ s/.txt//;
    
        $uniq{ $zeitraum } += $anzahl;   # += Addiert
        $hash{ $suchbegriff } += \%uniq;
    }
    close(INPUT);
}

use strict;
use warnings;

use diagnostics;