@a2 = map { $_ * 2 } @array;