リストと配列は違うよ

xaicronさんの記事を見てしったわけですが...
http://blog.livedoor.jp/xaicron/archives/51193668.html

$ perl -E 'say scalar (@array=qw(foo bar piyo))'
3

$ perl -E 'say scalar qw(foo bar piyo)'
piyo