有人帮忙解释一下这个perl程序的问题么？

请试一下：
$a = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
($b) = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
print qq($a\n);
print qq($b\n);

左边的标量，不带括号时，打印结果是右边列表中的最后一个；
然而，它带括号时，得到的赋值（打印结果）才是右边列表中的第一个。

$a = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
应该等价于$a = "$sec,$min ......";吧.
这样把列表赋值给一个标量，标量会得到列表中的随机值。

左边是标量，赋值当然有问题
而且要搞明白qw的含义
$a=1;
$b=2;
@c = qw($a, $b);
print @c;
结果：$a,$b

$a=1;
$b=2;
@c = ($a, $b);
print @c;

结果：12