my ( $n,  %h ) = -1;
$_ = $h{$_} //= $n+=2 for @a;