my %hash = map { shift @$_ => [ @$_ ] }
           map [ /(ID)(name)(email)(title)(date)(...)/ ], 
           @lines;