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