set x [lindex $arr 4]  ; #  x <= 5

foreach n $arr {
   set idx [expr n -1]
 lset arr $idx [expr $n * $n]
}

puts stdout "$arr"