my $format = Unpack::Format->new( spec =>[
   status => 'n',   #   0
   time   => 'n',   #   2
   date   => 'N',   #   4
   code   => 'a16',   #   8   key
   msid   => 'a10',   #  24   key
]
);

#overloaded
@test_vals{ @$format } = unpack "$format", $rec;

# pure OO style
@test-vals{$format->fieldnames) = unpack $format->templatestr, $rec;