my %hash;

my %account;
@account{ qw(name email title date) } = @row;

$hash{$id} = \%account;