perl version = v5.8.2

I have an issue with parsing a file, I have for instance 5 keys in a %results hash which I have already populated key1,key2,key3,key4,key5

Using them key values, I need to open a file, search for the line which matches each key, then process the attribute values which exist before the ENDKEY for each key and update the %results hash. for example:

HIT key1 so start to process
    attrib1:  base = FULL
        attribmsg: middle = MEDIUM
ENDKEY

HIT key2 so start to process
    attrib1:  base = FULL       
ENDKEY

HIT key9 so start to process
    attrib1:  base = FULL
ENDKEY
[download]

Notice key9 is in the file but is not in my hash therefore its keys and data attributes should never be matched.

snipet of code so far which dont work

open(FH,"<$file") || die ("cannot open file");
foreach my $key (sort keys %results){
local $/ = "ENDKEY\n";
while (my $line =~ /$key/){
        if ($line =~ /\S+\s($key).*/){
        my $keymatch = $1;
        $results{$keymatch}{attrib1} = 'null';
        $results{$keymatch}{attribmsg} = 'null';
        }

        if (/\s+(attrib1|attribmsg):.*=\s(\S+)/){
                $results{$keymatch}{$1} = $2;}
        }
    }
[download]