调整列表格式以便于维护

Perl允许你在列表最后一个元素末加上一个逗号,这样新增或删除元素时，都不必担心末尾逗号影响整个列表结构。临时注释某个元素时也很方便

my @cats = (
  'Buster Bean',
  'Mini',
  'Roscoe',
);

如果列表元素都不含空格，可以直接使用qw操作符初始化，这样逗号和引号都可以一并取消掉。

my @spacers = qw (
  husband Geroge
  wife        Jane
  daughter Judy
  son         Elory

);