my $x = 100;
my @y = (10, 20, 30);
foreach ($x, @y) {
    $_ *= 2;
}
local $" = ", ";
print "\$x = $x\n\@y = (@y)\n";