>>784
前者の書き方でいいはずだが。試すときになんか勘違いしてない?

% cat a.pl
@document = qw(unko chinko);

print "mydoc = \"@document\";\n";

print <<"EOM";
mydoc = "@document";
EOM

% perl a.pl
mydoc = "unko chinko";
mydoc = "unko chinko";