($ID,$name,$email,$title,$date,...) = /(ID)(name)(email)(title)(date)(...)/;
$hash{$ID}{name} = $name;
$hash{$ID}{email} = $email;
...

##</code><code>##

my @keys = ('a', 'b', 'c');
my @vals = (1, 2, 3);
my %hash;
@hash{@keys} = @vals;

##</code><code>##

my @keys = ('a', 'b', 'c');
my @vals = (1, 2, 3);
my %hash;
@($hash{key}}{@keys} = @vals;

##</code><code>##

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