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