my @FIELDS = unpack('a9a4a10a8', $record);

##</code><code>##

my @FIELDS = unpack('x9a4x10a8', $record);

##</code><code>##

$record = [         none          lt2dpmnt]
field=[none]
field=[lt2dpmnt]