- or download this
my %x = (field => $F[$_ - 1], value => $F[$_]);
- or download this
my %x = (field => $F[(--$_)++], value => $F[$_]);
- or download this
my %x = (field => $F[--$_++], value => $F[$_]);
- or download this
my %x = (field => $F[--$_], value => $F[++$_]);
- or download this
my %x = (field => $F[~-$_], value => $F[$_]);