
@doubles = map { $_ * 2 } (1, 11, 111, 2, 22, 5, 55);
print "@doubles\n";

