my @names = qw(name age location); # add do this list whenever
# make a hash reference and populate it
@$fields{@names} = ( ... list of corresponding values ...);