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