# or: foreach my $n ($x, @y) { $n *= 2; }