my ($i) = ('bar', 'baz'),
print "foo\n";
print "<$i>\n";