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