@array = ( 1 .. 10 );           # create array containing 1-10

foreach $number ( @array ) {    # for each element in @array
   $number **= 2;               # square the value
}

print "@array\n";     