(#*#)& /@ {1, 2, 3, 4}

Map[Function[#*#], {1, 2, 3, 4}]

Map[((#*#)&,{1,2,3,4}]

Map[Function[w,w*w],{1,2,3,4}]