@array = ( 1 .. 10 ); # create array containing 1-10foreach $number ( @array ) { # for each element in @array $number **= 2; # square the value}print "@array\n";