@{$obj}{@fields} = unpack $layout, $_{rec};