my @a = (1);
foreach (@a) { push @a, 1; }