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