my ($x,$y) = (1,2); for ($x,$y) { $_++; }