my %test_vals;
@test_vals{ @TEST_FLD } = unpack $TEST_REC_PACK, $rec;