foreach (@a) { push @a, 1; print scalar @a, "\n" }