my @x = 1 .. 5;
sub get_x { @x }
foreach my $v ( get_x() ) {
    $v *= 2;
}
print "@x\n";