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

my %hash;

while (<DATA>) {
    chomp;
	my ($type, $restofstring) = /^type=(\w+) (.+)$/;
	for $restofstring(split){
	my ($key, $val) = split /=/, $restofstring;
	$hash{$type}{$key} = $val;
	}
}
print Dumper \%hash;

__DATA__
type=first a=1 b=2 c=3
type=second d=4 e=5 f=6
type=third g=7 h=8 i=9