@array = qw/1 2 3 4 5/;
foreach $item (@array){
    $item *= 2;
}
print join('-', @array), "\n";

@array = qw/1 2 3 4 5/;
@array = map {$_ *= 2} @array;
print join('-', @array), "\n";