my @arr = map {$_ * $_} qw( 1 2 3 4 5 6 7 8); 

##</code><code>##

$_ *= $_ for @arr;