my %value_of;
    my @values = unpack($template, $record);
    @value_of{@fields} = @values;