programming-examples/perl/Statement/Using foreach to iterate over an array.pl

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

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

print "@array\n";