perl 钻石操作符中遇到的一些问题

示例

在下列代码中，我想获取利用（）连续文件的前三行，但在单独获得第四行时候；对应的输出为空

open IN,"$ARGV[0]" ;
($A,$B,$C)=(<IN>,<IN>,<IN>);
$D=<IN>;
print $D;

在下列代码中，输出为才正确

open IN,"$ARGV[0]" ;
$A=<IN>;
$B=<IN>;
$C=<IN>;
$D=<IN>;
print $D;