my $w = "warner", "brosers";
print "w: $w\n";

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

my ($y) = ("warner","brosers");
print "y: $y\n";

my $z = @{ ["warner","brosers"] };
print "z: $z\n";

my $a = () = ("warner","brosers");
print "a: $a\n";

my $b = () = @{ ["warner","brosers"] };
print "b: $b\n";

my ($c) = () = ("warner","brosers");
print "c: $c\n";