use strict;
use warnings;
use 5.010;

my @arr = (1, 2, 3);

for (@arr) {
  $_ *= 2;
}

print "@arr\n";

--output:--
2 4 6