use strict;
use warnings;
use Data::Dumper;

my %key_hash;

local $/ = "\n\n"; 
while ( <DATA> ) {
  if ( /^KEY: ([^\n]+)/ ) {
    my $current_key = $1;

    while ( m/OID: ([^\n]+)\nNAME: ([^\n]+)|Error Status (.*)/g ) {
      if ( defined $3 ) {
        $key_hash{$current_key}{Error_Status} = $3;
      }
      else {
        push @{$key_hash{$current_key}{OID_NAME}}, [$1,$2];
      }
    }
  }
}

print Dumper \%key_hash;