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