put map *+>1,$_=get,$_+1