my @vals = unpack $layout, $_{rec}; 
  for my $ndx (0..$#fields) {
     $obj->{$fields[$ndx]} = $vals[$ndx];
  }