sub _populate_hash
{
 my $hvHash= shift(@_);
 my $avValues= shift(@_);
 my $avNames= shift(@_);
 croak unless @$avValues == @$avNames;
 @{$hvHash}{@$avNames}= @$avValues;
}