my @x;         # The array
my ($a,$b,$c); # The scalars
for ($a,@x,$b,@x,$c,@x) { }