You don't get any assignments? Or regexen? Or equivalence tests? Or push, pop, shift or unshift? Or even just a weensy concatenation? And no print statements or inputs? Good grief...
my @x; # The array
my ($a,$b,$c); # The scalars
for ($a,@x,$b,@x,$c,@x) { }