my %x = (field => $F[(--$_)++], value => $F[$_]);