@a = 1..10;;
$_ **= 2 for @a;;
print @a;;
1 4 9 16 25 36 49 64 81 100