map { $_{$_} = $a++; # %_ hash becomes # ( ufde=>0, uhinbyl=>1, ujwq=>2, xqsauh=>3 ) $.++; # 4 more increments leaves $. set to 7 $_ }