my @array = (1..4);
print "@array\n";
@array = map{ $_ * 2 }@array;
print "@array\n";