note
eyepopslikeamosquito
<P>
Using for instead of [doc://map]:
<CODE>
use strict;
use warnings;
use Data::Dumper;
my @a = ("M94202", "M94150", "M94297", "M94150", "M94161", "M94161", "M94162");
my ( $n, %h ) = -1;
$_ = $h{$_} //= $n+=2 for @a;
print Dumper \@a;
</CODE>
</P>
<P>
I suppose if you were playing golf, without use strict, you might write:
<CODE>
my ( $n, %h ) = -1;
$_ = $h{$_} //= $n+=2 for @a;
</CODE>
in one-line as:
<CODE>
$_=$h{$_}//=$}+=2-!$}for@a;
</CODE>
(/me ducks)
</P>
1015541
1015546