($t) = qw/"a", "b"/; # 个数不匹配,$t匹配"a"
$t = qw/"a", "b"/; # 此时$t = 后一个
my @a = qw/first second third/;
my %h = (first => 'A', second => 'B');
my $t = @a[0, 1]; # $t is now 'second'
my $u = @h{'first', 'second'}; # $u is now 'B'
print "$t $u\n";