{
    no strict qw(vars refs);
    while(my ($k,$v) = each %datavalues) {$$k = $v;}
  }