foreach (@a) { push @a, 1; print scalar @a, "\n" } #### 2 3 4 5 ...