my @array = (1, 2, 3, 4, 5);
my @adjusted_array = map { $_ * 10 } @array;
print (join ',', @adjusted_array);