output_is(<<'CODE', <<'OUT', "string interpolation"); sub main () { $z = 1; @a = (1..3); $z1 = @a; #currently outputs: z=($z) a=() \=@a=($z1) print "z=($z) a=(@a) \$z1=\@a=($z1)\n"; } CODE z=(1) a=(1 2 3) $z1=@a=(3) OUT