my @keys = ('name', 'email', 'title', ...);
($ID, @vals) = /(ID)(name)(email)(title)(date)(...)/;
@{$hash{$ID}}{@keys} = @vals;