レシピ4.1 プログラム内でリストを定義する。

@a = ("quick", "brown", "fox");

@a = qw(Meddle not in the affairs of wizards.);

@lines = (<< "END_OF_HERE_DOC" =~ /^\s*(.+)/gm);
  I sit beside the fire and think
  of all that I have seen,
  of meadow-flowers and butterflies
  and summers that have been;
END_OF_HERE_DOC