my $x = ("warner","brosers");
print "$x\n"; # warner