use strict;
use Data::Dumper;

my @a = qw(1 2 3);

print Dumper(\@a);
for my $b (@a) {
    $b *= 2;
}
print Dumper(\@a);