open (DATA, "One.txt") or die "One.txt: $!";

while (my $line = <DATA>) {
    chomp($line);
    if ($line =~ /^KB\d{6}/) {
        $computers{$computer}{$line}++;
    }
    else {
        $computer = $line;
    }
}