#!/usr/bin/perl
#
# eg4: double an array using map (in place)
#
use strict;
use warnings;

my @array = (1,2,5,8,9,10,5);
map { $_ *= 2 } @array;

print join(",", @array)."\n";
