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]

In reply to Matching hash keys in text file by Mark.Allan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.