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