User Portlet

example data = RandomInteger[{1, 100}, {20}]; {data, Map[Mod[#, 3] &, data]} or even {data,Mod[data,3]}