use warnings;
use strict;

use Inline::Files;
use Data::Dumper;

my %set = map { chomp; $_ => undef } <SEARCHFILE>;

while (<DATA>) {
    if ( my ( $key, $value ) = /^(.+)=(.+)\s+</ ) {
        if ( exists $set{$key} ) {
            push @{ $set{$key} }, $value;
        }
    }
}

print Dumper \%set;

__SEARCHFILE__
revision
version
type
__DATA__
revision=0.0.1.1 <--newline at end of line
version=0.0.1 <--newline at end of line
type=A <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.2.1 <--newline at end of line
version=0.0.2 <--newline at end of line
type=B <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.3.1 <--newline at end of line
version=0.0.3 <--newline at end of line
type=C <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.4.1 <--newline at end of line

##</code><code>##

$VAR1 = {
          'revision' => [
                          '0.0.1.1',
                          '0.0.2.1',
                          '0.0.3.1',
                          '0.0.4.1'
                        ],
          'version' => [
                         '0.0.1',
                         '0.0.2',
                         '0.0.3'
                       ],
          'type' => [
                      'A',
                      'B',
                      'C'
                    ]
        };