say [map {[map {+get},^get]},^get].perl