for my $thing("this","Is","aA","List")
{
  print "$thing\n";
}

print "\---------\n";

my @things = ("this","Is","aA","List","being","assigned","to","an","array");

for my $thing(@things)
{
  print "$thing\n";
}

print "\---------\n";

my %things = ("this", "Is",
              "aA", "List",
              "being", "assigned",
              "to", "a",
              "hash", "and",
              "as", "such",
              "it", "must",
              "be", "EVEN!",
             ,);

for my $thing(@things)
{
  print "$thing\n";
}