@dbmlist = ("height", "weight", "age", "sex");
@people = ("joe", "john", "bill", "larry");

foreach $person(@people) 
  foreach $value(@dbmlist) {
     dbmopen(%VAL, $value, undef);
     $$value{$person} = $VAL{$person};
     dbmclose(%VAL);
   }
}