my @fields = qw(title descr short);
my %h = ();
@h{ @fields } = @fields;