arrays - 単語の代わりに行を割り当てる perl qw() 関数

Question

パールで

@array=qw/this is a line
          and a new one
          then a new one
          ......     
             ........./;

各「単語」が @array 変数に割り当てられます。$a[0]="this" の代わりに $a[0]="this is a line" などの @array 変数に割り当てられるように各「行」を作成するにはどうすればよいですか