Help for this page
Select Code to Download
Select
or
download this
my @arr = map {$_ * $_} qw( 1 2 3 4 5 6 7 8);
Select
or
download this
$_ *= $_ for @arr;